Свойство ConnectorFormat.EndConnectedShape (Publisher)

Статья
04/07/2023

Возвращает объект Shape , представляющий фигуру, к которой присоединен конец указанного соединителя.

Синтаксис

expression. EndConnectedShape

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

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

Shape

Примечания

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

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

Пример

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

Dim shpNew As Shape 
Dim intSite As Integer 
Dim shpOld As Shape 
 
With ActiveDocument.Pages(1).Shapes 
 
 ' Add new rectangle. 
 Set shpNew = .AddShape(Type:=msoShapeRectangle, _ 
 Left:=450, Top:=190, Width:=200, Height:=100) 
 
 ' Add new connector. 
 .AddConnector(Type:=msoConnectorCurve, _ 
 BeginX:=0, BeginY:=0, EndX:=10, EndY:=10) _ 
 .Name = "Conn1To3" 
 
 ' Get connection site number of old shape, and set 
 ' reference to old shape. 
 With .Item("Conn1To2").ConnectorFormat 
 intSite = .EndConnectionSite 
 Set shpOld = .EndConnectedShape 
 End With 
 
 ' Connect new connector to old shape and new rectangle. 
 With .Item("Conn1To3").ConnectorFormat 
 .EndConnect ConnectedShape:=shpOld, _ 
 ConnectionSite:=intSite 
 .BeginConnect ConnectedShape:=shpNew, _ 
 ConnectionSite:=1 
 End With 
End With

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

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

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