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

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

Синтаксис

выражение. 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 и обратная связь.