Поделиться через

Свойство ConnectorFormat.EndConnectionSite (Excel)

  • Статья

Возвращает целое число, указывающее сайт подключения, к которому подключен конец соединителя. Только для чтения, Long.

Синтаксис

expression. EndConnectionSite

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

Замечания

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

Пример

В этом примере предполагается, что myDocument уже содержит две фигуры, присоединенные соединителем с именем Conn1To2. Код добавляет прямоугольник и соединитель в myDocument. Конец нового соединителя будет присоединен к тому же сайту подключения, что и конец соединителя с именем Conn1To2, а начало нового соединителя будет присоединено к сайту подключения на одном из новых прямоугольников.

Set myDocument = Worksheets(1) 
With myDocument.Shapes 
 Set r3 = .AddShape(msoShapeRectangle, _ 
 100, 420, 200, 100) 
 With .Item("Conn1To2").ConnectorFormat 
 endConnSite1 = .EndConnectionSite 
 Set endConnShape1 = .EndConnectedShape 
 End With 
 With .AddConnector(msoConnectorCurve, _ 
 0, 0, 10, 10).ConnectorFormat 
 .BeginConnect r3, 1 
 .EndConnect endConnShape1, endConnSite1 
 End With 
End With

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

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