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


Свойство Viewer.SelectedShapeIndex (Visio Viewer)

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

Синтаксис

expression. SelectedShapeIndex

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

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

Long

Замечания

Коллекция фигур является одноуровневой, поэтому индекс первой фигуры в коллекции равен 1.

Если фигуры не выделены в документе, свойство SelectedShapeIndex возвращает значение 0.

Пример

Следующий код выполняет итерацию по коллекции фигур в документе, открытом в Visio Viewer, выбирает каждую фигуру по очереди, а затем получает значение первого элемента данных фигуры (пользовательского свойства), присвоенного каждой фигуре. Если обнаруживается значение настраиваемого свойства Computer 100, отображается окно сообщения об этом.

Dim intSelectedShapeIndex As Integer

Dim intShapeCounter As Integer

For intShapeCounter = 1 To vsoViewer.ShapeCount

    vsoViewer.SelectShape (intShapeCounter)

    intSelectedShapeIndex = vsoViewer.SelectedShapeIndex

    If vsoViewer.CustomPropertyValue(intSelectedShapeIndex, 1) = "Computer 100" Then

        Interaction.MsgBox ("Selected shape name is " & vsoViewer.CustomPropertyValue(intSelectedShapeIndex, 1))

    End If

Next

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

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