TextRange2.RotatedBounds 方法 (Office)

获取指定文本范围的文本边界框的顶点坐标。 此为只读属性。

语法

表达式。RotatedBounds (X1、 Y1、 X2、 Y2、 X3、 Y3、 x4、 y4)

表达 返回 TextRange2 对象的表达式。

参数

备注

文本边界框与 TextFrame2 对象不同。 TextFrame2 对象表示文本可以驻留的容器。 文本边界框表示紧挨着文本的外围。

示例

本示例使用 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).TextFrame2.TextRange2.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 

另请参阅

• TextRange2 对象成员

支持和反馈

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