CanvasShapes.AddShape メソッド (Word)
オートシェイプを描画キャンバスに追加します。 オートシェイプを表す Shape オブジェクトを返します。
構文
expression. AddShape
( _Type_
, _Left_
, _Top_
, _Width_
, _Height_
)
expression 必須です。 CanvasShapes オブジェクトを表す変数。
パラメーター
名前 | 必須 / オプション | データ型 | 説明 |
---|---|---|---|
型 | 必須 | 長整数型 (Long) | 返される図形の種類。 MsoAutoShape 定数をすることができます。 |
Left | 必須 | 単精度浮動小数点型 (Single) | オートシェイプの左端の位置をポイント数で指定します。 |
Top | 必須 | 単精度浮動小数点型 (Single) | オートシェイプの上端の位置をポイント数で指定します。 |
Width | 必須 | 単精度浮動小数点型 (Single) | オートシェイプの幅をポイント数で指定します。 |
Height | 必須 | 単精度浮動小数点型 (Single) | オートシェイプの高さをポイント数で指定します。 |
注釈
追加したオートシェイプの種類を変更するには、 図形 のプロパティを設定します。
例
次の使用例は、現在の文書に新しいキャンバスを作成し、そのキャンバスに円を追加します。
Sub NewCanvasShape()
Dim shpCanvas As Shape
Dim shpCanvasShape As Shape
'Add a new drawing canvas to the active document
Set shpCanvas = ActiveDocument.Shapes.AddCanvas( _
Left:=100, Top:=75, Width:=150, Height:=200)
'Add a circle to the drawing canvas
Set shpCanvasShape = shpCanvas.CanvasItems.AddShape( _
Type:=msoShapeOval, Left:=25, Top:=25, _
Width:=150, Height:=150)
End Sub
関連項目
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。