PowerPoint VBA教程:HasTextFrame属性

返回指定形状是否有文本框。只读。MsoTriState 类型。

MsoTriState 可以是下列 MsoTriState 类型常数之一。
msoCTrue
msoFalse
msoTriStateMixed
msoTriStateToggle
msoTrue 指定形状有文本框,因此可包含文本。

VBA示例

下面的例子从第一张幻灯片上所有包含文本框的形状中提取文本,然后将这些形状的名称及其所包含的文本保存在一个数组中。


Dim shpTextArray() As Variant
Dim numShapes, numAutoShapes, i As Long
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes
    numShapes = .Count
    If numShapes > 1 Then
    numTextShapes = 0
        ReDim shpTextArray(1 To 2, 1 To numShapes)
        For i = 1 To numShapes
            If .Item(i).HasTextFrame Then
                numTextShapes = numTextShapes + 1
                shpTextArray(numTextShapes, 1) = .Item(i).Name
                shpTextArray(numTextShapes, 2) = .Item(i) _
                    .TextFrame.TextRange.Text
            End If
        Next
        ReDim Preserve shpTextArray(1 To 2, 1 To numTextShapes)
    End If
End With

上页:PowerPoint VBA教程:HasText属性 下页:PowerPoint VBA教程:HasTitle属性

PowerPoint VBA教程:HasTextFrame属性

PowerPoint VBA教程:HasTitle属性 PowerPoint VBA教程:HasTitleMaster属性
PowerPoint VBA教程:Header属性 PowerPoint VBA教程:HeadersFooters属性
PowerPoint VBA教程:Height属性 PowerPoint VBA教程:Hidden属性
PowerPoint VBA教程:HideWhileNotPlaying属性 PowerPoint VBA教程:HorizontalAnchor属性
PowerPoint VBA教程:HorizontalFlip属性 PowerPoint VBA教程:HTMLProject属性
PowerPoint VBA教程:HTMLVersion属性 PowerPoint VBA教程:Hyperlink属性
PowerPoint VBA教程:Hyperlinks属性 PowerPoint VBA教程:Id属性
PowerPoint VBA教程:IncludeNavigation属性 PowerPoint VBA教程:IndentLevel属性
PowerPoint VBA教程:Index属性 PowerPoint VBA教程:Ink Property
PowerPoint VBA教程:InsetPen属性 PowerPoint VBA教程:InteractiveSequences属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号