TextRange top プロパティ (PowerPoint)TextRange.BoundTop property (PowerPoint)

指定したテキストフレームの境界ボックスの上端からスライドの上端までの間隔 (ポイント) を取得します。値の取得のみ可能です。Returns the distance (in points) from the top of the of the text bounding box for the specified text frame to the top of the slide. Read-only.

構文Syntax

expression.expression. BoundTop

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

戻り値Return value

単精度浮動小数点型 (Single)Single

Example

次の使用例は、作業中のプレゼンテーションのスライド 1 に角丸四角形を追加します。この四角形は図形 1 の境界ボックスと同じ寸法です。This example adds a rounded rectangle to slide one in the active presentation. The rectangle has the same dimensions as the text bounding box for shape one.

With Application.ActivePresentation.Slides(1).Shapes
    Set tr = .Item(1).TextFrame.TextRange
    Set roundRect = .AddShape(msoShapeRoundedRectangle, _
        tr.BoundLeft, tr.BoundTop, tr.BoundWidth, tr.BoundHeight)
End With

With roundRect.Fill
    .ForeColor.RGB = RGB(255, 0, 128)
    .Transparency = 0.75
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.