英語で読む

次の方法で共有


Shapes.AddPicture メソッド (Word)

文書に図を追加します。 図を表す Shape オブジェクトを返し、 Shapes コレクションに追加します。

構文

AddPicture (FileNameLinkToFileSaveWithDocumentLeftTopWidthHeightAnchor)

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

パラメーター

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

戻り値

Shape

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

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

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

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