次の方法で共有

Shapes.AddCanvas メソッド (Word)

  • [アーティクル]

文書に描画キャンバスを追加します。 描画キャンバスを表す Shape オブジェクトを返し、 Shapes コレクションに追加します。

構文

expression. AddCanvas( _Left_ , _Top_ , _Width_ , _Height_ , _Anchor_ )

expression 必須です。 Shapes オブジェクトを表す変数。

パラメーター

名前 必須 / オプション データ型 説明
Left 必須 Single アンカーを基準とした描画キャンバスの左端の 位置をポイント単位で指定します。
Top 必須 Single アンカーを基準とした、描画キャンバスの上端の 位置をポイント単位で指定します。
Width 必須 Single 描画キャンバスの幅を ポイント単位で指定します。
Height 必須 Single 描画キャンバスの高さ ( ポイント単位)。
Anchor 省略可能 バリアント型 キャンバスのバインド先のテキストを表す Range オブジェクト。 アンカーを指定する場合は、対応付けられた範囲の最初の段落の先頭にアンカーが配置されます。 この引数を省略した場合、対応付けられる範囲は自動的に選択され、そのページの左上隅を基準にしてキャンバスの位置が決められます。

戻り値

Shape

例

次の使用例は、新しい文書に描画キャンバスを追加し、描画キャンバスが行内に収まるように書式を設定します。次にキャンバスに 2 つの図形を追加し、塗りつぶしと線のプロパティを設定します。

Sub AddInlineCanvas() 
 Dim docNew As Document 
 Dim shpCanvas As Shape 
 
 Set docNew = Documents.Add 
 
 'Add a drawing canvas to the new document 
 Set shpCanvas = docNew.Shapes.AddCanvas( _ 
 Left:=150, Top:=150, Width:=70, Height:=70) 
 shpCanvas.WrapFormat.Type = wdWrapInline 
 
 'Add shapes to drawing canvas 
 With shpCanvas.CanvasItems 
 .AddShape msoShapeHeart, Left:=10, _ 
 Top:=10, Width:=50, Height:=60 
 .AddLine BeginX:=0, BeginY:=0, _ 
 EndX:=70, EndY:=70 
 End With 
 With shpCanvas 
 .CanvasItems(1).Fill.ForeColor _ 
 .RGB = RGB(Red:=255, Green:=0, Blue:=0) 
 .CanvasItems(2).Line _ 
 .EndArrowheadStyle = msoArrowheadTriangle 
 End With 
End Sub

関連項目

Shapes コレクション オブジェクト

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

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