PowerPoint) (TextRange.RotatedBounds 方法

會傳回指定文字範圍的文字邊界頂點座標。

語法

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 支援與意見反應。