Метод ShapeRange.RerouteConnections (PowerPoint)
Перенаправляет соединители так, чтобы они пробирали кратчайший путь между фигурами, которые они подключают. Для этого метод 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
См. также
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.