次の方法で共有

ShapeRange.GetHeight メソッド (Publisher)

  • [アーティクル]

1 つ の単位で指定した図形または図形範囲の高さを返します。

構文

式。GetHeight (ユニット)

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

パラメーター

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

戻り値

1 行

注釈

図形または図形範囲の幅を取得するには、 GetWidth メソッドを使用します。

例

次の使用例は、作業中の文書の先頭ページの図形すべてを含む図形範囲の高さと幅を、インチ単位 (小数点以下第 3 位を四捨五入) で表示します。

With ActiveDocument.Pages(1).Shapes.Range 
 MsgBox "Height of all shapes: " _ 
 & Format(.GetHeight(Unit:=pbUnitInch), "0.00") _ 
 & " in" & vbCr _ 
 & "Width of all shapes: " _ 
 & Format(.GetWidth(Unit:=pbUnitInch), "0.00") _ 
 & " in" 
End With

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

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