Classe Hyperlink (Excel VBA)

A classe Hyperlink representa um hyperlink.

Os principais procedimentos da classe Hyperlink são Delete, Hyperlinks.Add e Hyperlinks.Delete

Set

Para usar uma variável de classe Hyperlink, ela primeiro precisa ser instanciada por exemplo

Dim hyp as Hyperlink
Set hyp = ActiveCell.Hyperlinks(Index:=1)

Os procedimentos a seguir podem ser usados ​​para definir variáveis ​​do tipo Hyperlink: Hyperlinks.Item, Hyperlinks.Add, Shape.Hyperlink, Chart.Hyperlinks, Range.Hyperlinks e Worksheet.Hyperlinks

For Each

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

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

Métodos

Estes são os principais métodos da classe Hyperlink

Delete - Exclui o objeto.

ActiveCell.Hyperlinks(1).Delete

Hyperlinks.Add - Adiciona um hiperlink ao intervalo ou à forma especificada.

Dim strAddress As String: strAddress = 
Dim hyp As Hyperlink
Set hyp = ActiveCell.Hyperlinks.Add(Anchor:=, Address:=strAddress)

Hyperlinks.Delete - Exclui o objeto.

ActiveCell.Hyperlinks.Delete

Estes são os principais métodos da classe

AddToFavorites - Adiciona na pasta Favoritos um atalho para a pasta de trabalho ou para um hiperlink.

CreateNewDocument - Cria um novo documento vinculado ao hiperlink especificado.

Follow - Exibe um documento armazenado em cache, se já tiver sido baixado. Caso contrário, este método resolve o hiperlink, baixa o documento alvo e exibe o documento no aplicativo apropriado.

Propriedades

Address Retorna ou define um valor String que representa o endereço do documento de destino.

ActiveCell.Hyperlinks(1).Address =

EmailSubject Retorna ou define a cadeia de caracteres de texto da linha de assunto de email do hiperlink especificado. A linha de assunto é acrescentada ao endereço do hiperlink. String de leitura/gravação.

ActiveCell.Hyperlinks(1).EmailSubject =

Name Retorna um valor String que representa o nome do objeto.

Dim strName As String
strName = ActiveCell.Hyperlinks(1).Name

Parent Retorna o objeto pai do objeto especificado. Somente leitura.

Dim objParent As Object
Set objParent = ActiveCell.Hyperlinks(1).Parent

Range Retorna um objeto Range que representa o intervalo ao qual o hiperlink especificado está anexado.

Dim rngRange As Range
Set rngRange = ActiveCell.Hyperlinks(1).Range

ScreenTip Retorna ou define o texto de dicas de tela para o hiperlink especificado. String de leitura/gravação.

ActiveCell.Hyperlinks(1).ScreenTip =

Shape Retorna um objeto Shape que representa a forma anexada ao hiperlink especificado.

Dim shpShape As Shape
Set shpShape = ActiveCell.Hyperlinks(1).Shape

SubAddress Retorna ou define a localização dentro do documento associado ao hiperlink. String de leitura/gravação.

ActiveCell.Hyperlinks(1).SubAddress =

TextToDisplay Retorna ou define o texto a ser exibido para o hiperlink especificado. O valor padrão é o endereço do hiperlink. String de leitura/gravação.

ActiveCell.Hyperlinks(1).TextToDisplay =

Type Retorna um valor Long , contendo uma constante MsoHyperlinkType , que representa o local do quadro HTML.

Dim msohType As MsoHyperlinkType
msohType = ActiveCell.Hyperlinks(1).Type

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

Dim lngCount As Long
lngCount = ActiveCell.Hyperlinks.Count

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

Dim hypItem As Hyperlink
Set hypItem = ActiveCell.Hyperlinks(Index:=1)

Hyperlinks.Parent Retorna o objeto pai do objeto especificado. Somente leitura.

Dim objParent As Object
Set objParent = ActiveCell.Hyperlinks.Parent