Свойство 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 и обратная связь.
Обратная связь
https://aka.ms/ContentUserFeedback.
Ожидается в ближайшее время: в течение 2024 года мы постепенно откажемся от GitHub Issues как механизма обратной связи для контента и заменим его новой системой обратной связи. Дополнительные сведения см. в разделеОтправить и просмотреть отзыв по