Метод ConnectorFormat.EndConnect (Excel)

  • Статья

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

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

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

Синтаксис

expression. EndConnect (ConnectedShape, ConnectionSite)

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

Параметры

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