TextRange2.RotatedBounds メソッド (Office)

指定したテキスト範囲にある境界ボックスの頂点の座標を取得します。 値の取得のみ可能です。

構文

式。回転バインド (X1、 Y1、 X2、 Y2、 X3、 Y3、 x4、 y4)

式TextRange2 オブジェクトを返す式。

パラメーター

注釈

テキスト境界ボックスは、 TextFrame2 オブジェクトと同じではありません。 TextFrame2 オブジェクトは、テキストが存在するコンテナーを表します。 テキスト境界ボックスは、テキストの周囲に境界を表します。

例

この例では、作業中のプレゼンテーションのスライド 1 の図形 1 のテキスト範囲の 3 番目の単語のテキスト境界ボックスの寸法を持つフリー フォームを描画するのには、 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 のサポートおよびフィードバックを参照してください。