Метод ShapeRange.RerouteConnections (PowerPoint)

Статья
04/07/2023

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

Синтаксис

expression. RerouteConnections

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

Замечания

Этот метод перенаправляет все соединители, присоединенные к указанной фигуре; Если указанная фигура является соединителем, она перенаправляется.

Если этот метод применяется к соединителю, перенаправляется только этот соединитель. Если этот метод применяется к подключенной фигуре, все соединители к этой фигуре будут перенаправляется.

Пример

В этом примере два прямоугольника добавляются в myDocument, они соединяются с помощью изогнутого соединителя, а затем перенаправляет соединитель так, чтобы он протянул кратчайший путь между двумя прямоугольниками. Обратите внимание, что метод 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)
Set newConnector = s _
    .AddConnector(msoConnectorCurve, 0, 0, 100, 100)

With newConnector.ConnectorFormat
    .BeginConnect firstRect, 1
    .EndConnect secondRect, 1
End With

newConnector.RerouteConnections

См. также

Объект ShapeRange

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

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

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