通过

TextRange.BoundWidth 属性 (PowerPoint)

  • 项目

返回指定文本框的文本边界框的宽度（以磅为单位）。 只读。

语法

expression。 BoundWidth

表达 一个代表 TextRange 对象的变量。

返回值

单精度

示例

本示例向活动演示文稿中的第一张幻灯片添加一个圆角矩形。 矩形的尺寸与第一个形状的文本边界框相同。

With Application.ActivePresentation.Slides(1).Shapes
    Set tr = .Item(1).TextFrame.TextRange
    Set roundRect = .AddShape(msoShapeRoundedRectangle, _
        tr.BoundLeft, tr.BoundTop, tr.BoundWidth, tr.BoundHeight)
End With

With roundRect.Fill
    .ForeColor.RGB = RGB(255, 0, 128)
    .Transparency = 0.75
End With

另请参阅

TextRange 对象

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。