Метод Shapes.AddPicture (Word)

Добавляет рисунок в документ. Возвращает объект Shape , представляющий рисунок, и добавляет его в коллекцию Shapes .

Синтаксис

expression. AddPicture (FileName, LinkToFile, SaveWithDocument, Left, Top, Width, Height, Anchor)

выражение (обязательно). Переменная, представляющая объект 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 и обратная связь.