Метод 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 и обратная связь.