次の方法で共有

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

関連項目

CanvasShapes コレクション

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

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