RotatedBounds メソッド (PowerPoint)TextRange.RotatedBounds method (PowerPoint)

指定したテキスト範囲にある境界ボックスの頂点の座標を取得します。Returns the coordinates of the vertices of the text bounding box for the specified text range.

構文Syntax

expression.expression. RotatedBounds( _X1_, _Y1_, _X2_, _Y2_, _X3_, _Y3_, _X4_, _Y4_ )

TextRangeオブジェクトを表す変数を取得します。expression A variable that represents a TextRange object.

パラメーターParameters

名前Name 必須 / オプションRequired/Optional データ型Data type 説明Description
X1, Y1X1, Y1 必須Required SingleSingle この引数に、指定したテキスト範囲内の境界ボックスの最初の頂点の位置がポイント単位で返されます。Returns the position (in points) of the first vertex of the bounding box for the text within the specified text range.
X2, Y2X2, Y2 必須Required SingleSingle この引数に、指定したテキスト範囲内の境界ボックスの 2 番目の頂点の位置がポイント単位で返されます。Returns the position (in points) of the second vertex of the bounding box for the text within the specified text range.
X3, Y3X3, Y3 必須Required SingleSingle この引数に、指定したテキスト範囲内の境界ボックスの 3 番目の頂点の位置がポイント単位で返されます。Returns the position (in points) of the third vertex of the bounding box for the text within the specified text range.
X4, Y4X4, Y4 必須Required SingleSingle この引数に、指定したテキスト範囲内の境界ボックスの 4 番目の頂点の位置がポイント単位で返されます。Returns the position (in points) of the fourth vertex of the bounding box for the text within the specified text range.

Example

次の使用例は、 RotatedBoundsメソッドの引数によって返された値を使用して、作業中のプレゼンテーションのスライド1の図形1に含まれる、テキスト範囲の3番目の単語のテキストボックスのサイズを持つフリーフォームを作成します。This example uses the values returned by the arguments of the RotatedBounds method to draw a freeform that has the dimensions of the text bounding box for the third word in the text range in shape one on slide one in the active presentation.

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

関連項目See also

TextRange オブジェクトTextRange Object

サポートとフィードバックSupport and feedback

Office VBA またはこの説明書に関するご質問やフィードバックがありますか?Have questions or feedback about Office VBA or this documentation? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.