Метод ConnectorFormat.EndConnect (PowerPoint)

Статья
04/07/2023

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

Синтаксис

выражение. EndConnect( _ConnectedShape_, _ConnectionSite_ )

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

Параметры

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

Замечания

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

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

Пример

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

Set myDocument = ActivePresentation.Slides(1)

Set s = myDocument.Shapes
Set firstRect = s.AddShape(msoShapeRectangle, 100, 50, 200, 100)
Set secondRect = s.AddShape(msoShapeRectangle, 300, 300, 200, 100)

With s.AddConnector(msoConnectorCurve, 0, 0, 100, 100) _
        .ConnectorFormat
    .BeginConnect ConnectedShape:=firstRect, ConnectionSite:=1
    .EndConnect ConnectedShape:=secondRect, ConnectionSite:=1
    .Parent.RerouteConnections
End With

См. также

Объект ConnectorFormat

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

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

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