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.