Метод Shapes.AddConnector (Excel)

Создает соединитель. Возвращает объект Shape , представляющий новый соединитель. При добавлении соединителя ни к чему не подключается. Используйте методы BeginConnect и EndConnect , чтобы присоединить начало и конец соединителя к другим фигурам в документе.

Синтаксис

expression. AddConnector (Type, Beginx, Beginy, EndX, Endy)

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

Параметры

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

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

Shape

Замечания

При присоединении соединителя к фигуре размер и положение соединителя при необходимости автоматически корректируются. Таким образом, если вы собираетесь присоединить соединитель к другим фигурам, положение и размеры, указанные при добавлении соединителя, не имеют значения.

Пример

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

Sub AddCanvasConnector() 
 
    Dim wksNew As Worksheet 
    Dim shpCanvas As Shape 
 
    Set wksNew = Worksheets.Add 
 
    'Add drawing canvas to new worksheet 
    Set shpCanvas = wksNew.Shapes.AddCanvas( _ 
        Left:=150, Top:=150, Width:=200, Height:=300) 
 
    'Add connector to the drawing canvas 
    shpCanvas.CanvasItems.AddConnector _ 
        Type:=msoConnectorStraight, BeginX:=150, _ 
        BeginY:=150, EndX:=200, EndY:=200 
 
End Sub

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

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