Shapes.AddShape メソッド (Publisher)

  • [アーティクル]

オートシェイプを表す新しい Shape オブジェクトを、指定した Shapes コレクションに追加します。

構文

式。AddShape (型、 左、 上、 幅、 高さ)

表現Shapes オブジェクトを表す変数です。

パラメーター

名前 必須 / オプション データ型 説明
型 必須 MsoAutoShapeType 描画するオートシェイプの種類を指定します。
Left 必須 バリアント型 (Variant) オートシェイプを表す図形の左端の位置を指定します。
Top 必須 バリアント型 (Variant) オートシェイプを表す図形の上端の位置を指定します。
Width 必須 バリアント型 (Variant) オートシェイプを表す図形の幅を指定します。
Height 必須 バリアント型 (Variant) オートシェイプを表す図形の高さを指定します。

戻り値

Shape

注釈

Left、Top、Width、Height の各引数の場合、数値はポイント単位で評価されます。文字列は、Microsoft Publisher でサポートされている任意の単位 (例: "2.5 in") に含めることができます。

例

次の使用例は、作業中の文書の先頭ページに四角形を追加します。

Dim shpShape As Shape 
 
Set shpShape = ActiveDocument.Pages(1).Shapes.AddShape _ 
 (Type:=msoShapeRectangle, _ 
 Left:=144, Top:=144, _ 
 Width:=72, Height:=144)

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

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