次の方法で共有

ShapeRange.GetTop メソッド (Publisher)

  • [アーティクル]

現在のビューの左端のページの上端からの図形または図形範囲の上端の距離を、指定した単位の Single として返します。

構文

式。GetTop (ユニット)

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

パラメーター

名前 必須 / オプション データ型 説明
Unit 必須 PbUnitType 取得する距離の単位を指定します。 Microsoft Publisher タイプ ライブラリで宣言されている PbUnitType クラスの定数の 1 つを指定できます。

戻り値

1 行

注釈

現在表示されている一番左側のページの左端から、図形または図形範囲の左端までの距離を取得するには、 GetLeft メソッドを使用します。

例

次の使用例は、左端のページの左端と上端から、最初のページのすべての図形で構成される図形範囲の左端と上端までの距離を表示します。 距離の単位はインチで、小数点以下第 2 位まで表示されます。

With ActiveDocument.Pages(1).Shapes.Range 
 MsgBox "Distance from left: " _ 
 & Format(.GetLeft(Unit:=pbUnitInch), "0.00") _ 
 & " in" & vbCr _ 
 & "Distance from top: " _ 
 & Format(.GetTop(Unit:=pbUnitInch), "0.00") _ 
 & " in" 
End With

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

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