Метод ConnectorFormat.EndConnect (Excel)

Привязывает конец указанного соединителя к указанной фигуре. Если между концем соединители и другой фигурой уже есть связь, это подключение нарушено.

Если конец соединитетеля еще не установлен на указанном соединитечном сайте, этот метод перемещает конец соединитетеля на узел подключения и корректирует размер и положение соединитетеля.

Используйте метод BeginConnect , чтобы прикрепить начало соединителя к фигуре.

Синтаксис

выражения. EndConnect (ConnectedShape, ConnectionSite)

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

Параметры

Имя Обязательный или необязательный Тип данных Описание
ConnectedShape Обязательный Shape Фигура для крепится к концу соединителя. Указанный объект Shape должен быть в том же собрании Форм , что и соединитатель.
ConnectionSite Обязательный Long Должен быть integer между 1 и integer возвращается свойством ConnectionSiteCount указанной формы. Если соединителю необходимо автоматически найти кратчайший путь между двумя соединительными фигурами, укажите для этого аргумента допустимый integer, а затем используйте метод RerouteConnections после подключения соединителя к фигурам на обоих концах.

Примечания

При присоединении соединителя к объекту размер и положение соединителя при необходимости автоматически корректируются.

Пример

В этом примере добавляется два прямоугольника в myDocument и соединяет их с изогнутым соединитетелем. Обратите внимание, что метод RerouteConnections не имеет значения, какие значения вы поставляете для аргументов ConnectionSite , используемых с методами BeginConnect и EndConnect .

Set myDocument = Worksheets(1) 
Set s = myDocument.Shapes 
Set firstRect = s.AddShape(msoShapeRectangle, 100, 50, 200, 100) 
Set secondRect = s.AddShape(msoShapeRectangle, 300, 300, 200, 100) 
Set c = s.AddConnector(msoConnectorCurve, 0, 0, 100, 100) 
With c.ConnectorFormat 
 .BeginConnect ConnectedShape:=firstRect, ConnectionSite:=1 
 .EndConnect ConnectedShape:=secondRect, ConnectionSite:=1 
 c.RerouteConnections 
End With

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

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