Compartilhar via

Objeto hiperligações (Publisher)

Representa a coleção de hiperlink objetos em um intervalo de texto.

Comentários

Utilize a propriedade TextRange.Hyperlinks para devolver a coleção Hiperligações .

Use a Adicionar método cria um hiperlink e adicioná-lo à coleção Hyperlinks.

Utilize Hiperligações (índice), em que o índice é o número do índice, para devolver um único objeto de Hiperligação numa publicação, intervalo ou seleção.

A propriedade Count dessa coleção retorna o número de hiperlinks somente na forma ou na seleção especificada.

Exemplo

O exemplo seguinte elimina todas as hiperligações de texto na publicação ativa que contêm a palavra Tailspin no endereço.

Sub DeleteMSHyperlinks() 
 Dim pgsPage As Page 
 Dim shpShape As Shape 
 Dim hprLink As Hyperlink 
 For Each pgsPage In ActiveDocument.Pages 
 For Each shpShape In pgsPage.Shapes 
 If shpShape.HasTextFrame = msoTrue Then 
 If shpShape.TextFrame.HasText = msoTrue Then 
 For Each hprLink In shpShape.TextFrame.TextRange.Hyperlinks 
 If InStr(hprLink.Address, "tailspin") <> 0 Then 
 hprLink.Delete 
 Exit For 
 End If 
 Next 
 Else 
 shpShape.Hyperlink.Delete 
 End If 
 End If 
 Next 
 Next 
End Sub

O exemplo seguinte cria uma nova hiperligação para o site especificado.

Sub AddHyperlink() 
 Selection.TextRange.Hyperlinks.Add Text:=Selection.TextRange, _ 
 Address:="https://www.tailspintoys.com/" 
End Sub

Este exemplo exibe os endereços para o primeiro hiperlink se a seleção especificada contém hyperlinks.

Sub DisplayHyperlinkAddress() 
 With Selection.TextRange.Hyperlinks 
 If .Count > 0 Then _ 
 MsgBox .Item(1).Address 
 End With 
End Sub

Métodos

Propriedades

Confira também

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.

  • Last updated on