36、Microsoft PowerPoint Visual Basic 实用指南

Microsoft PowerPoint Visual Basic 实用指南

1. 保存演示文稿

可以将活动演示文稿保存到与 PowerPoint 相同的文件夹中，示例代码如下：

With Application
    fName = .Path & "\test presentation"
    ActivePresentation.SaveAs fName
End With

2. Pattern 属性

2.1 应用于 LineFormat 对象

该属性用于设置或返回应用于指定线条的图案，为读写属性， MsoPatternType 可以是以下常量之一：
| 常量 | 描述 |
| — | — |
| msoPattern10Percent | 10% 图案 |
| msoPattern20Percent | 20% 图案 |
| …… | …… |
| msoPatternZigZag | 锯齿图案 |
| msoPatternDarkVertical | 深色垂直图案 |

示例代码是向 myDocument 添加一条带图案的线条：

Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes.AddLine(10, 100, 250, 0).Line