TextRange.RotatedBounds 方法 (PowerPoint)

返回指定文本范围的文本框的顶点坐标。

语法

expression。 RotatedBounds( _X1_, _Y1_, _X2_, _Y2_, _X3_, _Y3_, _X4_, _Y4_ )

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

参数

名称	必需/可选	数据类型	说明
X1, Y1	必需	Single	返回指定文本范围内文本框的第一个顶点的位置（点数）。
X2, Y2	必需	Single	返回指定文本范围内文本框的第二个顶点的位置（点数）。
X3, Y3	必需	Single	返回指定文本范围内文本框的第三个顶点的位置（点数）。
X4, Y4	必需	Single	返回指定文本范围内文本框的第四个顶点的位置（点数）。

示例

本示例使用 RotatedBounds 方法绘制的任意多边形具有第三个字的文本边界框的尺寸为当前演示文稿第一张幻灯片的第一个形状中文字范围中的参数返回的值。

Dim x1 As Single, y1 As Single
Dim x2 As Single, y2 As Single
Dim x3 As Single, y3 As Single
Dim x4 As Single, y4 As Single
Dim myDocument As Slide

Set myDocument = ActivePresentation.Slides(1)

myDocument.Shapes(1).TextFrame.TextRange.Words(3).RotatedBounds _
    x1, y1, x2, y2, x3, y3, x4, y4

With myDocument.Shapes.BuildFreeform(msoEditingCorner, x1, y1)
    .AddNodes msoSegmentLine, msoEditingAuto, x2, y2
    .AddNodes msoSegmentLine, msoEditingAuto, x3, y3
    .AddNodes msoSegmentLine, msoEditingAuto, x4, y4
    .AddNodes msoSegmentLine, msoEditingAuto, x1, y1
    .ConvertToShape.ZOrder msoSendToBack
End With

另请参阅

TextRange 对象

支持和反馈

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