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 支持和反馈,获取有关如何接收支持和提供反馈的指南。