Propriedade TextRange.Hyperlinks (Publisher)

Retorna uma coleção Hyperlinks que representa todos os hiperlinks no intervalo de texto especificado.

Sintaxe

expressão. Hiperlinks

Expressão Uma variável que representa um objeto TextRange .

Valor de retorno

Hiperlinks

Exemplo

O exemplo a seguir procura todas as formas na página um da publicação ativa que têm quadros e informa quantos hiperlinks cada forma tem.

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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.