Viewer.SelectedShapeIndex 属性 (Visio Viewer)
获取在Microsoft Visio Viewer中打开的绘图中所选形状的形状集合中的索引。 此为只读属性。
语法
表达式。SelectedShapeIndex
表达 返回 Viewer 对象的表达式。
返回值
Long
备注
形状集合从 1 开始,因此集合中第一个形状的索引为 1。
如果在绘图中未选择任何形状, SelectedShapeIndex 属性将返回 0。
示例
以下代码循环访问文档中在Visio Viewer中打开的形状集合,依次选择每个形状,然后获取分配给每个形状的自定义属性 (第一个形状数据项的值) 。 如果发现“计算机 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 问题”,并将其取代为新的反馈系统。 有关详细信息,请参阅:提交和查看相关反馈