WPS 基础接口 > 演示 API 参考 > Shape > 属性 > Shape.HasTextFrame 属性
返回指定形状是否有文本框。只读。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]
}


请参阅