次の方法で共有

TextRange.BoundTop プロパティ (Publisher)

  • [アーティクル]

一番上のページの上端から指定したテキスト範囲の境界ボックスの上端までの距離をポイント単位で示す単精度浮動小数点型 (Single) の値を返します。 読み取り専用です。

構文

式。BoundTop

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

戻り値

1 行

例

次の使用例は、作業中の文書で 1 番目のページの最初の図形のテキストを囲む境界ボックスの位置、幅、高さを表示します。

Dim rngText As TextRange 
Dim strMessage As String 
 
Set rngText = ActiveDocument.Pages(1) _ 
 .Shapes(1).TextFrame.TextRange 
 
With rngText 
 strMessage = "Text frame information" & vbCrLf _ 
 & " Distance from left edge of page: " _ 
 & .BoundLeft & " points" & vbCrLf _ 
 & " Distance from top edge of page: " _ 
 & .BoundTop & " points" & vbCrLf _ 
 & " Width: " & .BoundWidth & " points" & vbCrLf _ 
 & " Height: " & .BoundHeight & " points" 
End With 
 
MsgBox strMessage

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。