Объект ConnectorFormat (PowerPoint)

Содержит свойства и методы, применяемые к соединителям.

Замечания

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

Используйте свойство ConnectorFormat для возврата объекта ConnectorFormat . Используйте методы BeginConnect и EndConnect , чтобы присоединить концы соединителя к другим фигурам в документе. Используйте метод RerouteConnections , чтобы автоматически найти кратчайший путь между двумя фигурами, соединенными соединителем. Используйте свойство Connector , чтобы узнать, является ли фигура соединителем.

Обратите внимание, что при добавлении соединителя в коллекцию Фигуры назначается размер и позиция, но размер и положение автоматически изменяются при присоединении начала и конца соединителя к другим фигурам в коллекции. Таким образом, если вы планируете присоединить соединитель к другим фигурам, начальный размер и расположение, которые вы указали, не имеют значения. Аналогичным образом вы указываете, к каким сайтам подключения на фигуре следует присоединять соединитель при подключении соединителя, но при использовании метода RerouteConnections после подключения соединителя может измениться, к каким сайтам подключения подключается соединитель, что делает ваш первоначальный выбор сайтов подключения нецелесообразным.

Сайты подключений обычно нумеруются в соответствии с правилами, представленными в следующей таблице.

Тип фигуры	Схема нумерирования сайта подключения
Автофигуры, объекты WordArt, рисунки и объекты OLE	Сайты подключения нумеруются, начиная с верхней части и продолжая против часовой стрелки.
Бесплатные формы	Сайты соединения — это вершины, и они соответствуют номерам вершин.

Пример

В следующем примере два прямоугольника добавляются в myDocument и соединяются с помощью изогнутого соединителя.

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, 0, 0).ConnectorFormat

    .BeginConnect ConnectedShape:=firstRect, ConnectionSite:=1

    .EndConnect ConnectedShape:=secondRect, ConnectionSite:=1

    .Parent.RerouteConnections

End With

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

Set mainshape = ActiveWindow.Selection.ShapeRange(1)

With mainshape

    bx = .Left + .Width + 50

    by = .Top + .Height + 50

End With

With ActiveWindow.View.Slide

    For j = 1 To mainshape.ConnectionSiteCount

        With .Shapes.AddConnector(msoConnectorStraight, bx, by, bx + 50, by + 50)

            .ConnectorFormat.EndConnect mainshape, j

            .ConnectorFormat.Type = msoConnectorElbow

            .Line.ForeColor.RGB = RGB(255, 0, 0)

            l = .Left

            t = .Top

        End With

        With .Shapes.AddTextbox(msoTextOrientationHorizontal, l, t, 36, 14)

            .Fill.Visible = False

            .Line.Visible = False

            .TextFrame.TextRange.Text = j

        End With

    Next j

End With

См. также

Справочник по объектной модели PowerPoint

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

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