通过

Selection.GetIDs 方法 (Visio)

  • 项目

获取选定形状的形状 ID。

注意

此 Visio 对象或成员仅供 Visio Professional 2013 的授权用户使用。

语法

表达式。GetIDs (ShapeID () )

表达 返回 Selection 对象的表达式。

参数

名称 必需/可选 数据类型 说明
ShapeIDs () 必需 Long out 参数。 与选定形状相对应的形状 ID（Long 类型）组成的数组。

返回值

Nothing

注解

Microsoft Visio 使用 ID 编号来标识形状、记录集和数据行。 形状 ID 仅在形状所在页面范围内是唯一的。 确定这些形状 ID 后，可以将它们传递给 Page.LinkShapesToDataRows 方法，以准确指定图表中的形状应如何链接到可用数据记录集中的数据行。 形状 ID 在具体页面的范围中是唯一的。

要确定某一选定形状的形状 ID，请使用 Selection.GetIDs 方法。

返回的形状 ID 集由 Selection.IterationMode 属性的设置决定。

示例

以下 Microsoft Visual Basic for Applications (VBA) 宏演示如何使用 GetIDs 方法获取选定内容中形状的 ID，并在“即时”窗口中打印 ID。 该宏将选择活动窗口中的所有形状。

Public Sub GetIDs_Example() 
 
    Dim vsoSelection As Visio.Selection 
    Dim lngShapeID As Long
    Dim intShapeIndex As Integer 
     
    ActiveWindow.DeselectAll 
    ActiveWindow.SelectAll 
     
    Set vsoSelection = ActiveWindow.Selection 
     
    Call vsoSelection.GetIDs(lngShapeIDs) 
     
    For intShapeIndex = LBound(lngShapeIDs) To UBound(lngShapeIDs) 
        lngShapeID = lngShapeIDs(intShapeIndex)
        Debug.Print lngShapeID 
    Next 
 
End Sub

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。