Question

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

MsoTriState 可以是下列 MsoTriState 类型常数之一。

msoCTrue

msoFalse

msoTriStateMixed

msoTriStateToggle

msoTrue指定形状有文本框，因此可包含文本。

示例

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

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