Shapes.AddPicture メソッド (Word)
文書に図を追加します。 図を表す Shape オブジェクトを返し、 Shapes コレクションに追加します。
式。AddPicture (FileName、 LinkToFile、 SaveWithDocument、 Left、 Top、 Width、 Height、 Anchor)
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 のサポートおよびフィードバックを参照してください。