Метод ConnectorFormat.BeginConnect (PowerPoint)

Статья
04/07/2023

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

Синтаксис

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

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

Параметры

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

Замечания

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

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

Пример

В этом примере два прямоугольника добавляются к первому слайду активной презентации и соединяются с помощью изогнутого соединителя. Обратите внимание, что метод 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 и обратная связь.

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