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

Объект ConnectorFormat (Publisher)

  • Статья

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

Замечания

Используйте свойство ConnectorFormat объекта Shape или коллекции ShapeRange , чтобы вернуть объект ConnectorFormat .

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

Используйте метод RerouteConnections объекта Shape и коллекции ShapeRange , чтобы автоматически найти кратчайший путь между двумя фигурами, соединенными соединителем.

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

Примечание.

Размер и позиция назначаются при добавлении соединителя в коллекцию Фигур, но размер и положение автоматически изменяются при присоединении начала и конца соединителя к другим фигурам в коллекции. Таким образом, если вы планируете присоединить соединитель к другим фигурам, указанные начальные размеры и положение не имеют значения. Аналогичным образом вы указываете, к каким сайтам подключения на фигуре следует присоединять соединитель при подключении соединителя, но при использовании метода RerouteConnections после подключения соединителя может измениться, к каким сайтам подключения подключается соединитель, что делает ваш первоначальный выбор сайтов подключения нецелесообразным.

Пример

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

Dim shpAll As Shapes 
Dim firstRect As Shape 
Dim secondRect As Shape 
 
Set shpAll = ActiveDocument.Pages(1).Shapes 
Set firstRect = shpAll.AddShape(Type:=msoShapeRectangle, _ 
 Left:=100, Top:=50, Width:=200, Height:=100) 
Set secondRect = shpAll.AddShape(Type:=msoShapeRectangle, _ 
 Left:=300, Top:=300, Width:=200, Height:=100) 


With shpAll.AddConnector(Type:=msoConnectorCurve, BeginX:=0, _ 
 BeginY:=0, EndX:=0, EndY:=0).ConnectorFormat 
 .BeginConnect ConnectedShape:=firstRect, ConnectionSite:=1 
 .EndConnect ConnectedShape:=secondRect, ConnectionSite:=1 
 .Parent.RerouteConnections 
End With

Методы

Свойства

См. также

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

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