Метод ConnectorFormat.BeginConnect (PowerPoint)
Привязывает начало указанного соединителя к указанной фигуре.
Синтаксис
выражение. BeginConnect
( _ConnectedShape_
, _ConnectionSite_
)
Выражение Переменная, представляющая объект ConnectorFormat .
Параметры
Имя | Обязательный или необязательный | Тип данных | Описание |
---|---|---|---|
ConnectedShape | Обязательный | Shape | Фигура для присоединения к началу соединителя. Указанный объект Shape должен находиться в той же коллекции Shapes , что и соединитель. |
ConnectionSite | Обязательный | Long | Сайт подключения на фигуре, заданной connectedShape. Должно быть целым числом между 1 и целым числом, возвращаемым свойством ConnectionSiteCount указанной фигуры. Если вы хотите, чтобы соединитель автоматически находил кратчайший путь между двумя фигурами, которые он соединяет, укажите любое допустимое целое число для этого аргумента, а затем используйте метод RerouteConnections после подключения соединителя к фигурам на обоих концах. |
Замечания
Если между началом соединителя и другой фигурой уже установлено соединение, это соединение будет нарушено. Если начало соединителя еще не расположено на указанном соединительных узлах, этот метод перемещает начало соединителя на соединительный сайт и изменяет размер и положение соединителя. Используйте метод EndConnect , чтобы присоединить конец соединителя к фигуре.
При подключении соединителя к объекту размер и положение соединителя при необходимости автоматически корректируются.
Пример
В этом примере два прямоугольника добавляются к первому слайду активной презентации и соединяются с помощью изогнутого соединителя. Обратите внимание, что метод 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)
With s.AddConnector(msoConnectorCurve, 0, 0, 100, 100) _
.ConnectorFormat
.BeginConnect ConnectedShape:=firstRect, ConnectionSite:=1
.EndConnect ConnectedShape:=secondRect, ConnectionSite:=1
.Parent.RerouteConnections
End With
См. также
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.