Метод Shapes.AddCanvas (Word)

Статья
04/07/2023

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

Синтаксис

выражение. AddCanvas( _Left_ , _Top_ , _Width_ , _Height_ , _Anchor_ )

выражение (обязательно). Переменная, представляющая объект Shapes .

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Left	Обязательный	Single	Положение в точках левого края холста рисования относительно привязки.
Top	Обязательный	Single	Позиция верхнего края холста рисования относительно привязки в точках.
Width	Обязательный	Single	Ширина холста рисования (в точках).
Height	Обязательный	Single	Высота холста рисунка (в точках).
Anchor	Необязательный	Variant	Объект Range , представляющий текст, к которому привязан холст. Если задана привязка, привязка размещается в начале первого абзаца в диапазоне привязки. Если этот аргумент опущен, диапазон привязки выбирается автоматически, а холст размещается относительно верхнего и левого краев страницы.

Возвращаемое значение

Shape

Пример

В следующем примере холст рисования добавляется в новый документ и форматирует холст рисования таким образом, чтобы он был в соответствии с текстом; затем добавляет две фигуры на холст и форматирует свойства заливки и линии.

Sub AddInlineCanvas() 
 Dim docNew As Document 
 Dim shpCanvas As Shape 
 
 Set docNew = Documents.Add 
 
 'Add a drawing canvas to the new document 
 Set shpCanvas = docNew.Shapes.AddCanvas( _ 
 Left:=150, Top:=150, Width:=70, Height:=70) 
 shpCanvas.WrapFormat.Type = wdWrapInline 
 
 'Add shapes to drawing canvas 
 With shpCanvas.CanvasItems 
 .AddShape msoShapeHeart, Left:=10, _ 
 Top:=10, Width:=50, Height:=60 
 .AddLine BeginX:=0, BeginY:=0, _ 
 EndX:=70, EndY:=70 
 End With 
 With shpCanvas 
 .CanvasItems(1).Fill.ForeColor _ 
 .RGB = RGB(Red:=255, Green:=0, Blue:=0) 
 .CanvasItems(2).Line _ 
 .EndArrowheadStyle = msoArrowheadTriangle 
 End With 
End Sub

См. также

Объект Shapes Collection

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Поделиться через