TextRange.RotatedBounds メソッド (PowerPoint)

  • [アーティクル]

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

構文

式。 RotatedBounds( _X1_, _Y1_, _X2_, _Y2_, _X3_, _Y3_, _X4_, _Y4_ )

式TextRange オブジェクトを表す変数。

パラメーター

名前 必須 / オプション データ型 説明
X1, Y1 必須 単精度浮動小数点型 (Single) この引数に、指定したテキスト範囲内の境界ボックスの最初の頂点の位置がポイント単位で返されます。
X2, Y2 必須 単精度浮動小数点型 (Single) この引数に、指定したテキスト範囲内の境界ボックスの 2 番目の頂点の位置がポイント単位で返されます。
X3, Y3 必須 単精度浮動小数点型 (Single) この引数に、指定したテキスト範囲内の境界ボックスの 3 番目の頂点の位置がポイント単位で返されます。
X4, Y4 必須 単精度浮動小数点型 (Single) この引数に、指定したテキスト範囲内の境界ボックスの 4 番目の頂点の位置がポイント単位で返されます。

例

この例では、作業中のプレゼンテーションのスライド 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).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 のサポートおよびフィードバックを参照してください。