共用方式為


Hyperlinks.ItemU 屬性 (Visio)

從集合中傳回物件。 唯讀。

語法

表情ItemU (NameOrIndex)

expression 代表 Hyperlinks 物件的變數。

參數

名稱 必要/選用 資料類型 描述
名稱或索引 必要 Variant 包含要擷取的物件之通用名稱、唯一識別碼或索引。

傳回值

超連結

註解

你可以透過在 Variant 中以字串表達式傳遞物件名稱,取得 Addons超連結圖層主圖、主、MasterShortcutsPagesShapesStyles 集合中的物件。

如果你以名稱檢索 Shape 物件, ItemU 屬性會搜尋 Shapes 集合中包含的頁面或主目錄中的所有形狀,除了集合的包含形狀外。 因此,ItemU 屬性回傳的 Shape 物件可以是不在 Shapes 集合中的形狀。

您也可以將 MasterShape 物件的唯一識別碼字串傳給 ItemU 屬性。 例如:

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

若將此字串傳遞至 Shapes 集合的 ItemU 屬性,則搜尋該集合中所有形狀。 群組內的形狀不會被搜尋,而該群組中的形狀則不被搜尋。

若要搜尋此集合中的所有圖形,以及在群組內的圖形與此集合的包含圖形中搜尋,請在唯一識別碼字串中加上星號 (*) 當做首碼。 例如:

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

範例

這個 Microsoft Visual Basic 巨集展示了如何使用 Pages 集合的 ItemU 屬性來取得 Shapes 集合。 接著它利用 Shapes 集合的 ItemU 屬性,在即時視窗的第 1 頁列印所有圖形的通用名稱。

若要執行這個巨集,請確定使用中的文件具有第 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 支援與意見反應