Метод CanvasShapes.AddPicture (Word)

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

Синтаксис

выражение. AddPicture( _FileName_ , _LinkToFile_ , _SaveWithDocument_ , _Left_ , _Top_ , _Width_ , _Height_ )

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