TextRange2.RotatedBounds 方法 (Office)

會取得指定文字範圍的文字邊界頂點座標。 唯讀。

語法

表情。旋轉界線 (X1、 Y1、 X2、 Y2、 X3、 Y3、 x4、 y4)

詞 一個回傳 TextRange2 物件的表達式。

參數

名稱	必要/選用	資料類型	描述
X1	必要	Single	回傳該文字在邊界框第一個頂點 X 座標點) 點的點 (位置。
Y1	必要	Single	回傳在指定文字範圍內，邊界框第一個頂點的 Y 座標點) (點。
X2	必要	Single	回傳該文字在邊界框第二頂點 X 座標) 點的 ( 位置。
Y2	必要	Single	回傳該文域內邊界框第二個頂點 Y 座標點) (點。
X3	必要	Single	回傳該文字在包圍框第三頂點 X 座標 ) 點的點 (。
Y3	必要	Single	回傳該文字在邊界框第三頂點 Y 座標點) 點的 (位置。
x4	必要	Single	回傳該文字在邊界框第四頂點 X 座標) 點的 (位置。
Y4	必要	Single	回傳在指定文字範圍內，邊界框第四頂點的 Y 座標點) (點位置。

註解

文字週框方塊不 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 支援與意見反應。