返回指定形状是否有文本框。只读。
MsoTriState 类型。
语法
表达式.HasTextFrame
表达式 一个代表 Shape 对象的变量。
返回值
MsoTriState
说明
MsoTriState 可以是下列 MsoTriState 常量之一。 |
msoCTrue |
msoFalse |
msoTriStateMixed |
msoTriStateToggle |
msoTrue:指定形状有文本框,因此可包含文本。 |
示例
下面的例子从第一张幻灯片上所有包含文本框的形状中提取文本,然后将这些形状的名称及其所包含的文本保存在一个数组中。
示例代码 |
let shpTextArray[]
let myDocument = ActivePresentation.Slides.Item(1)
let myshapes = myDocument.Shapes
let numShapes = myshapes.Count
if(numShapes > 1){
let numTextShapes = 0
ReDim shpTextArray[1 To 2, 1 To numShapes]
for(let i = 1; i <= numShapes; i++){
if(myshapes.Item(i).HasTextFrame == msoTrue){
numTextShapes = numTextShapes + 1
shpTextArray[numTextShapes, 1] = myshapes.Item(i).Name
shpTextArray[numTextShapes, 2] = myshapes.Item(i).TextFrame.TextRange.Text
}
}
ReDim Preserve shpTextArray[1 To 2, 1 To numTextShapes]
}
|