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

Статья
04/07/2023

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

Синтаксис

expression. BeginConnectedShape

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

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

Shape

Примечания

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

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

Пример

В этом примере предполагается, что первая страница активной публикации уже содержит две фигуры, присоединенные соединителем 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 = .BeginConnectionSite 
 Set shpOld = .BeginConnectedShape 
 End With 
 
 ' Connect new connector to old shape and new rectangle. 
 With .Item("Conn1To3").ConnectorFormat 
 .BeginConnect ConnectedShape:=shpOld, _ 
 ConnectionSite:=intSite 
 .EndConnect ConnectedShape:=shpNew, _ 
 ConnectionSite:=1 
 End With 
End With

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

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

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