Hyperlinks.ItemU 属性 (Visio)

从集合中返回一个对象。 此为只读属性。

语法

表达式。ItemU (NameOrIndex)

expression：一个表示 Hyperlinks 对象的变量。

Parameters

名称	必需/可选	数据类型	说明
NameOrIndex	必需	Variant	包含要检索的对象的通用名称、唯一 ID 或索引。

返回值

Hyperlink

备注

通过将对象的名称作为 Variant 中的字符串表达式传递，可以在 Addons、Hyperlinks、Layers、MasterShortcuts、Pages、Shapes 或 Styles 集合中检索对象。

如果您按名称检索 Shape 对象，则 ItemU 属性除了搜索 Shapes 集合的包含形状中的所有形状外，还搜索该集合的包含页面或包含主控形状中的所有形状。 因此，ItemU 属性返回的 Shape 对象可以是不在 Shapes 集合中的形状。

您还可以将 Master 或 Shape 对象的唯一 ID 字符串传递给 ItemU 属性。 例如：

objRet = vsoShapes.ItemU("{2287DC42-B167-11CE-88E9-0020AFDDD917}")

如果将这样的字符串传递给 Shapes 集合的 ItemU 属性，将搜索该集合中包含的所有形状。 但不搜索包含形状中的组合形状中的形状。

要搜索集合中的所有形状以及组和集合的包含形状内的形状，请以星号 (*) 作为唯一 ID 字符串的前缀。 例如：

objRet = vsoShapes.ItemU("*{2287DC42-B167-11CE-88E9-0020AFDDD917}")

示例

以下 Microsoft Visual Basic 宏显示如何使用 Pages 集合的 ItemU 属性获取 Shapes 集合。 然后，它使用 Shapes 集合的 ItemU 属性在“即时”窗口中打印 Page-1 上所有形状的通用名称。

要运行此宏，请确保活动文档在第一页上包含形状。

Public Sub ItemU_Example() 
  
    Dim intCounter As Integer 
    Dim intShapeCount As Integer 
    Dim vsoShapes As Visio.Shapes  
 
    Set vsoShapes = ActiveDocument.Pages.ItemU(1).Shapes  
 
    Debug.Print "Shapes in Document: "; ActiveDocument.Name  
    Debug.Print "          on  Page: "; ActiveDocument.Pages.ItemU(1).Name  
 
    intShapeCount = vsoShapes.Count  
 
    If intShapeCount > 0 Then 
 
        For intCounter = 1 To intShapeCount  
            Debug.Print " "; vsoShapes.ItemU(intCounter).Name  
        Next intCounter 
  
    Else 
 
        Debug.Print " No Shapes On Page" 
  
    End If   
 
End Sub

支持和反馈

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