代表 Shape 或 ShapeRange 对象中的文本框。 它包含文本框中的文本,并公开控制文本框的对齐和定位的属性和方法。
备注
使用 形状 和 ShapeRange 对象的 TextFrame2 属性返回 TextFrame2 对象。
示例
下面的代码将一个矩形添加到幻灯片中,并向该矩形中添加文本,然后设置文本框的边距。
Set pptSlide = ActivePresentation.Slides(1)
With pptSlide.Shapes.AddShape(msoShapeRectangle, 0, 0, 250, 140).TextFrame2
.TextRange.Text = "Here is some sample text"
.MarginBottom = 10
.MarginLeft = 10
.MarginRight = 10
.MarginTop = 10
End With
另请参阅
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈? 请参阅 Office VBA 支持和反馈,获取有关如何接收支持和提供反馈的指南。