42、Microsoft PowerPoint Visual Basic 编程实用指南

Microsoft PowerPoint Visual Basic 编程实用指南

1. 文本效果与格式相关属性

1.1 TextEffect 属性

TextEffect 属性用于返回一个 TextEffectFormat 对象，该对象包含指定形状的文本效果格式属性。此属性仅适用于代表艺术字的 Shape 或 ShapeRange 对象。

示例代码如下：

Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes(3)
    If .Type = msoTextEffect Then
        .TextEffect.FontBold = True
    End If
End With

上述代码检查幻灯片 1 上的形状 3 是否为艺术字，如果是，则将其字体样式设置为加粗。

1.2 TextFrame 属性

TextFrame 属性返回一个 TextFrame 对象，该对象包含指定形状或母版文本样式的对齐和锚定属性。在应用此属性之前，可以使用 HasTextFrame 属性来确定形状是否包含文本框。

示例代码如下：

Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes _
        .AddShape(msoShapeRectangle, 180, 175,