Свойство Connects.FromSheet (Visio)

Статья
04/07/2023

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

Синтаксис

expression. FromSheet

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

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

Shape

Примечания

Свойство FromSheet для объекта Connect является простым. Он всегда возвращает фигуру, из которой исходит объект Connect .

Коллекция Connects представляет несколько подключений. Если каждое соединение, представленное коллекцией, исходит из одной и той же фигуры, свойство FromSheet для коллекции возвращает фигуру. В противном случае свойство FromSheet возвращает Nothing и не создает исключение.

Пример

В этом макросе Microsoft Visual Basic для приложений (VBA) показано, как использовать свойство FromSheet для поиска фигуры, из которой создается объект Connect в документе Microsoft Visio. В примере отображаются сведения о подключении в окне Интерпретация.

В этом примере предполагается, что существует активный документ, содержащий по крайней мере две соединенные фигуры. Для достижения наилучших результатов соедините две фигуры из набора элементов фигур организационной диаграммы .

 
Public Sub FromSheet_Example() 
 
 Dim vsoShapes As Visio.Shapes 
 Dim vsoShape As Visio.Shape 
 Dim vsoConnectFrom As Visio.Shape 
 Dim vsoConnects As Visio.Connects 
 Dim vsoConnect As Visio.Connect 
 Dim intCurrentShapeIndex As Integer 
 Dim intCounter As Integer 
 
 Set vsoShapes = ActivePage.Shapes 
 
 For intCurrentShapeIndex = 1 To vsoShapes.Count 
 Set vsoShape = vsoShapes(intCurrentShapeIndex) 
 Set vsoConnects = vsoShape.Connects 
 
 For intCounter = 1 To vsoConnects.Count 
 Set vsoConnect = vsoConnects(intCounter) 
 Set vsoConnectFrom = vsoConnect.FromSheet 
 
 'Print the name of the shape the 
 'Connect object originates from. 
 Debug.Print vsoConnectFrom.Name 
 
 Next intCounter 
 
 Next intCurrentShapeIndex 
 
End Sub

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

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

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