次の方法で共有

ShapeRange.GetWidth メソッド (Publisher)

  • [アーティクル]

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

構文

式。GetWidth (ユニット)

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

パラメーター

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

戻り値

1 行

注釈

GetHeight メソッドを使用すると、図形または図形範囲の高さが返されます。

例

次の使用例は、作業中の文書の先頭ページの図形すべてを含む図形範囲の高さと幅を、インチ単位 (小数点以下第 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 のサポートおよびフィードバックを参照してください。