Метод ConnectorFormat.BeginConnect (Publisher)

Статья
04/07/2023

Привязывает начало указанного соединителя к указанной фигуре.

Синтаксис

expression. BeginConnect (ConnectedShape, ConnectionSite)

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

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
ConnectedShape	Обязательный	Shape	Фигура, к которой Microsoft Publisher присоединяет начало соединителя. Указанный объект Shape должен находиться в той же коллекции Shapes , что и соединитель.
ConnectionSite	Обязательный	Long	Сайт подключения на фигуре, заданной connectedShape. Должно быть целым числом между 1 и целым числом, возвращаемым свойством ConnectionSiteCount указанной фигуры. Сайты подключения нумеруются, начиная с верхней части указанной фигуры и перемещаются против часовой стрелки вокруг фигуры. Если вы хотите, чтобы соединитель автоматически находил кратчайший путь между двумя фигурами, которые он соединяет, укажите любое допустимое целое число для этого аргумента, а затем используйте метод RerouteConnections после подключения соединителя к фигурам на обоих концах.

Замечания

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

При подключении соединителя к объекту размер и положение соединителя при необходимости автоматически корректируются.

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

Пример

В этом примере два прямоугольника добавляются на первую страницу активной публикации и соединяются с помощью изогнутого соединителя. Обратите внимание, что метод RerouteConnections переопределяет значения, которые вы указываете для аргументов ConnectionSite , используемых с методами BeginConnect и EndConnect .

Dim shpRect1 As Shape 
Dim shpRect2 As Shape 
 
With ActiveDocument.Pages(1).Shapes 
 
 ' Add two new rectangles. 
 Set shpRect1 = .AddShape(Type:=msoShapeRectangle, _ 
 Left:=100, Top:=50, Width:=200, Height:=100) 
 Set shpRect2 = .AddShape(Type:=msoShapeRectangle, _ 
 Left:=300, Top:=300, Width:=200, Height:=100) 
 
 ' Add a new curved connector. 
 With .AddConnector(Type:=msoConnectorCurve, _ 
 BeginX:=0, BeginY:=0, EndX:=100, EndY:=100) _ 
 .ConnectorFormat 
 
 ' Connect the new connector to the two rectangles. 
 .BeginConnect ConnectedShape:=shpRect1, ConnectionSite:=1 
 .EndConnect ConnectedShape:=shpRect2, ConnectionSite:=1 
 
 ' Reroute the connector to create the shortest path. 
 .Parent.RerouteConnections 
 End With 
 
End With

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

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

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