CanvasShapes.AddPicture メソッド (Word)

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

構文

式。 AddPicture( _FileName_ , _LinkToFile_ , _SaveWithDocument_ , _Left_ , _Top_ , _Width_ , _Height_ )

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

パラメーター

名前	必須 / オプション	データ型	説明
FileName	必須	String	図のパスおよびファイル名を指定します。
LinkToFile	オプション	バリアント型 (Variant)	True 作成元ファイルに図をリンクします。 False を指定 すると、図ファイルの独立したコピーです。 既定値は、 false を指定 します。
SaveWithDocument	オプション	バリアント型 (Variant)	の 場合は true リンクされた図が文書と共に保存するのには。 既定値は、 false を指定 します。
Left	省略可能	バリアント型 (Variant)	新しい図の左端の位置を、描画キャンバスを基準にしてポイント単位で指定します。
Top	省略可能	バリアント型 (Variant)	新しい図の上端の位置を、描画キャンバスを基準にしてポイント単位で指定します。
Width	オプション	バリアント型 (Variant)	図の幅をポイント単位で指定します。
Height	オプション	バリアント型 (Variant)	図の高さをポイント単位で指定します。

例

次の使用例では、作業中の文書で新しく作成された描画キャンバスに図を追加します。

Sub NewCanvasPicture() 
 Dim shpCanvas As Shape 
 
 'Add a drawing canvas to the active document 
 Set shpCanvas = ActiveDocument.Shapes _ 
 .AddCanvas(Left:=100, Top:=75, _ 
 Width:=200, Height:=300) 
 
 'Add a graphic to the drawing canvas 
 shpCanvas.CanvasItems.AddPicture _ 
 FileName:="C:\Program Files\Microsoft Office\" & _ 
 "Office\Bitmaps\Styles\stone.bmp", _ 
 LinkToFile:=False, SaveWithDocument:=True 
End Sub

関連項目

CanvasShapes コレクション

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

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