Свойство ShapeRange.ConnectionSiteCount (PowerPoint)

Статья
04/07/2023

Возвращает количество сайтов подключения на указанной фигуре. Только для чтения.

Синтаксис

expression. ConnectionSiteCount

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

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

Длинное целое

Пример

В этом примере два прямоугольника добавляются в 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)

lastsite = secondRect.ConnectionSiteCount

With s.AddConnector(msoConnectorCurve, 0, 0, 100, 100) _
        .ConnectorFormat

    .BeginConnect ConnectedShape:=firstRect, ConnectionSite:=1
    .EndConnect ConnectedShape:=secondRect, ConnectionSite:=1

End With

With s.AddConnector(msoConnectorCurve, 0, 0, 100, 100) _
        .ConnectorFormat

    .BeginConnect ConnectedShape:=firstRect, ConnectionSite:=1
    .EndConnect ConnectedShape:=secondRect, _
        ConnectionSite:=lastsite

End With

См. также

Объект ShapeRange

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

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

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