Publisher) (TextRange.Hyperlinks 屬性

會傳回代表指定文字範圍中所有超連結的 Hyperlinks 集合。

語法

運算式。連結

表達 代表 TextRange 物件的 變數。

傳回值

Hyperlinks

範例

下列範例尋找使用中出版物的頁面一上擁有文字框架的所有圖案，並報告每個圖案擁有的超連結數量。

Dim hypAll As Hyperlinks 
Dim shpLoop As Shape 
 
For Each shpLoop In ActiveDocument.Pages(1).Shapes 
 If shpLoop.HasTextFrame = msoTrue Then 
 Set hypAll = shpLoop.TextFrame.TextRange.Hyperlinks 
 Debug.Print "Shape " & shpLoop.Name _ 
 & " has " & hypAll.Count & " hyperlinks." 
 End If 
Next shpLoop

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。