PowerPoint VBA教程:TextFrame对象

多个对象
TextFrame
Ruler
TextRange

代表 Shape对象中的文字框。包含文本框中的文本,还包含控制文本框对齐方式和缩进方式的属性和方法。

使用 TextFrame对象

使用 TextFrame属性返回 TextFrame对象。以下示例向myDocument 中添加一个矩形,向矩形中添加文本,然后设置文本框的边距。


Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes _
        .AddShape(msoShapeRectangle, 0, 0, 250, 140).TextFrame
    .TextRange.Text = "Here is some test text"
    .MarginBottom = 10
    .MarginLeft = 10
    .MarginRight = 10
    .MarginTop = 10
End With

使用HasTextFrame属性决定形状是否含有文本框,使用HasText属性决定文本框是否含有文本,如以下示例所示。


Set myDocument = ActivePresentation.Slides(1)
For Each s In myDocument.Shapes
    If s.HasTextFrame Then
        With s.TextFrame
            If .HasText Then MsgBox .TextRange.Text
        End With
    End If
Next

上页:PowerPoint VBA教程:TextEffectFormat对象 下页:PowerPoint VBA教程:TextRange对象

PowerPoint VBA教程:TextFrame对象

PowerPoint VBA教程:TextRange对象 PowerPoint VBA教程:TextStyle对象
PowerPoint VBA教程:TextStyleLevel对象 PowerPoint VBA教程:TextStyleLevels集合对象
PowerPoint VBA教程:TextStyles集合对象 PowerPoint VBA教程:ThreeDFormat对象
PowerPoint VBA教程:TimeLine对象 PowerPoint VBA教程:Timing对象
PowerPoint VBA教程:View对象 PowerPoint VBA教程:WebOptions对象
PowerPoint VBA教程:Accelerate属性 PowerPoint VBA教程:AcceleratorsEnabled属性
PowerPoint VBA教程:Accent属性 PowerPoint VBA教程:Accumulate属性
PowerPoint VBA教程:Action属性 PowerPoint VBA教程:ActionSettings属性
PowerPoint VBA教程:ActionVerb属性 PowerPoint VBA教程:Active属性
PowerPoint VBA教程:ActivePane属性 PowerPoint VBA教程:ActivePresentation属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号