RotatedBounds 方法

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

expression  必选。该表达式返回一个 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