Метод CanvasShapes.AddShape (Word)

Статья
04/07/2023

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

Синтаксис

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

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

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Тип	Обязательный	Long	Тип возвращаемой фигуры. Может быть любой константой MsoAutoShape .
Left	Обязательный	Single	Позиция левого края автофигуры, измеряемая в точках.
Top	Обязательный	Single	Позиция верхнего края автофигуры, измеряемая в точках.
Width	Обязательный	Single	Ширина автофигуры, измеряемая в точках.
Height	Обязательный	Single	Высота автофигуры, измеряемая в точках.

Замечания

Чтобы изменить тип добавленного автофигуры, задайте свойство AutoShapeType .

Пример

В этом примере создается новый холст в активном документе и добавляется круг на холст.

Sub NewCanvasShape() 
 Dim shpCanvas As Shape 
 Dim shpCanvasShape As Shape 
 
 'Add a new drawing canvas to the active document 
 Set shpCanvas = ActiveDocument.Shapes.AddCanvas( _ 
 Left:=100, Top:=75, Width:=150, Height:=200) 
 
 'Add a circle to the drawing canvas 
 Set shpCanvasShape = shpCanvas.CanvasItems.AddShape( _ 
 Type:=msoShapeOval, Left:=25, Top:=25, _ 
 Width:=150, Height:=150) 
End Sub

См. также

Коллекция CanvasShapes

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

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

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