Метод Shapes.AddLine (Издатель)

Статья
04/07/2023

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

Синтаксис

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

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

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
BeginX	Обязательный	Variant	Координата x начальной точки линии.
Beginy	Обязательный	Variant	Координата Y начальной точки линии.
EndX	Обязательный	Variant	Координата x конечной точки линии.
Endy	Обязательный	Variant	Координата Y конечной точки линии.

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

Shape

Примечания

Для аргументов BeginX, BeginY, EndX и EndY числовые значения оцениваются в пунктах; строки могут находиться в любых единицах, поддерживаемых Microsoft Publisher (например, "2.5 in").

Пример

В следующем примере на первую страницу активной публикации добавляется новая строка.

Dim shpLine As Shape 
 
Set shpLine = ActiveDocument.Pages(1).Shapes.AddLine _ 
 (BeginX:=144, BeginY:=144, _ 
 EndX:=180, EndY:=72)

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

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