Метод CanvasShapes.AddLine (Word)

Статья
04/07/2023

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

Синтаксис

expression. AddLine (Beginx, Beginy, Endx, Endy)

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

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
BeginX	Обязательный	Single	Горизонтальное положение, измеряемое в точках, начальной точки линии относительно холста рисования.
Beginy	Обязательный	Single	Вертикальное положение, измеряемое в точках, начальной точки линии, относительно холста рисования.
EndX	Обязательный	Single	Горизонтальное положение конечной точки линии, измеряемое в точках, относительно холста документа.
Endy	Обязательный	Single	Вертикальное положение конечной точки линии по отношению к холсту рисования, измеряемое в точках.

Замечания

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

Пример

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

Sub NewCanvasLine() 
 Dim shpCanvas As Shape 
 Dim shpLine As Shape 
 
 'Add new drawing canvas to the active document 
 Set shpCanvas = ActiveDocument.Shapes _ 
 .AddCanvas(Left:=100, Top:=75, _ 
 Width:=150, Height:=200) 
 
 'Add a line to the drawing canvas 
 Set shpLine = shpCanvas.CanvasItems.AddLine( _ 
 BeginX:=25, BeginY:=25, EndX:=150, EndY:=150) 
 
 'Add an arrow to the line and sets the color to purple 
 With shpLine.Line 
 .BeginArrowheadStyle = msoArrowheadDiamond 
 .BeginArrowheadWidth = msoArrowheadWide 
 .ForeColor.RGB = RGB(Red:=150, Green:=0, Blue:=255) 
 End With 
End Sub

См. также

Коллекция CanvasShapes

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

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

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