Метод Shapes.AddCanvas (Word)
Добавляет холст рисунка в документ. Возвращает объект 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
См. также
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.