Classe Hyperlinks - a coleção de hiperlinks para uma planilha ou um intervalo (Excel VBA)

A classe Hyperlinks representa a coleção de hiperlinks para uma planilha ou um intervalo. Para usar uma variável de classe Hyperlinks, ela primeiro precisa ser instanciada por exemplo

Dim hyps as Hyperlinks
Set hyps = ActiveCell.Hyperlinks

For Each

Aqui está um exemplo de processamento dos itens Hyperlinks em uma coleção.

Dim hyp As Hyperlink
For Each hyp In ActiveCell.Hyperlinks
	
Next hyp

Add

Adiciona um hiperlink ao intervalo ou à forma especificada.

Quando você especificar o argumento TextToDisplay, o texto deverá ser uma cadeia de caracteres.

Add (Anchor, Address, SubAddress, ScreenTip, TextToDisplay)

With Worksheets(1) 
 .Hyperlinks.Add Anchor:=.Range("a5"), _ 
 Address:="https://example.microsoft.com", _ 
 ScreenTip:="Microsoft Web Site", _ 
 TextToDisplay:="Microsoft" 
End With

Arguments

O seguinte argumento é opcional

Anchor (Shape) - A âncora do hiperlink. Pode ser um objeto de**Intervalo** ou Forma.

Address (String) - O endereço do hiperlink.

Optional arguments

Os seguintes argumentos são opcionais

SubAddress (String) - O subendereço do hiperlink.

ScreenTip (String) - A dica de tela a ser exibida quando o ponteiro do mouse é pausado sobre o hiperlink.

TextToDisplay (String) - O texto a ser exibido para o hiperlink.

Count

Retorna um valor Long que representa o número de objetos na coleção.

Dim lngCount As Long
lngCount = ActiveCell.Hyperlinks.Count

Delete

Exclui o objeto.

Chamar o método Delete no objeto hyperlinks especificado é equivalente a usar os comandos limpar hiperlinks e formatos claros da lista suspensa limpar na seção edição do ** Guia página inicial** . Não apenas hiperlinks serão removidos; a formatação da célula também será removida. Se você quiser apenas remover o hiperlink, confira o método Range. ClearHyperlinks .

ActiveCell.Hyperlinks.Delete

Item

Retorna um único objeto de uma coleção.

Item (Index)

Index: O nome ou número de índice do objeto.

Worksheets(1).Range("E5").Hyperlinks.Item(1).Follow