Метод Shapes.AddConnector (PowerPoint)

Статья
04/07/2023

Создает соединитель. Возвращает объект Shape , представляющий новый соединитель. При добавлении соединителя он ни к чему не подключается. Используйте методы BeginConnect и EndConnect , чтобы присоединить начало и конец соединителя к другим фигурам в документе.

Синтаксис

expression. AddConnector (Type, Beginx, Beginy, EndX, Endy)

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

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Тип	Обязательный	MsoConnectorType	Тип соединителя.
BeginX	Обязательный	Single	Горизонтальное положение, измеряемое в точках, начальной точки соединителя относительно левого края слайда.
Beginy	Обязательный	Single	Вертикальное положение, измеряемое в точках, начальной точки соединителя относительно верхнего края слайда.
EndX	Обязательный	Single	Горизонтальное положение, измеряемое в точках, конечной точки соединителя относительно левого края слайда.
Endy	Обязательный	Single	Вертикальное положение, измеряемое в точках, конечной точки соединителя относительно верхнего края слайда.

Возвращаемое значение

Shape

Примечания

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

Пример

В этом примере два прямоугольника добавляются в myDocument и соединяются с помощью изогнутого соединителя. Обратите внимание, что при подключении соединителя к прямоугольникам размер и положение соединителя автоматически изменяются. таким образом, позиция и измерения, указанные при добавлении выноски, не имеют значения (измерения должны быть ненулевыми).

Sub NewConnector() 
 
    Dim shpShapes As Shapes 
    Dim shpFirst As Shape 
    Dim shpSecond As Shape 
 
    Set shpShapes = ActivePresentation.Slides(1).Shapes 
    Set shpFirst = shpShapes.AddShape(Type:=msoShapeRectangle, _ 
        Left:=100, Top:=50, Width:=200, Height:=100) 
    Set shpSecond = shpShapes.AddShape(Type:=msoShapeRectangle, _ 
        Left:=300, Top:=300, Width:=200, Height:=100) 
    With shpShapes.AddConnector(Type:=msoConnectorCurve, BeginX:=0, _ 
            BeginY:=0, EndX:=100, EndY:=100).ConnectorFormat 
        .BeginConnect ConnectedShape:=shpFirst, ConnectionSite:=1 
        .EndConnect ConnectedShape:=shpSecond, ConnectionSite:=1 
        .Parent.RerouteConnections 
    End With 
 
End Sub

См. также

Объект Shapes

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

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

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