Propriedade Control.Hyperlink (Access)

Utilize a propriedade Hiperligação para devolver uma referência a um objeto Hiperligação e para aceder às propriedades e métodos da hiperligação de um controlo. Somente leitura.

Sintaxe

expressão. Hiperligação

expressão Uma variável que representa um objeto De controlo .

Exemplo

O procedimento CreateHyperlink no exemplo seguinte define as propriedades de hiperligação de um botão de comando, etiqueta ou controlo de imagem para os valores de endereço e sub-endereço transmitidos ao procedimento. A definição de endereço é um argumento opcional, porque uma hiperligação para um objeto na base de dados atual utiliza apenas a definição subaddress.

Para experimentar este exemplo, crie um formulário com dois controlos de caixa de texto (txtAddress e txtSubAddress) e um botão de comando (cmdFollowLink) e cole o seguinte na secção Declarações do módulo do formulário.

Private Sub cmdFollowLink_Click() 
 CreateHyperlink Me!cmdFollowLink, Me!txtSubAddress, _ 
 Me!txtAddress 
End Sub 
 
Sub CreateHyperlink(ctlSelected As Control, _ 
 strSubAddress As String, Optional strAddress As String) 
 Dim hlk As Hyperlink 
 Select Case ctlSelected.ControlType 
 Case acLabel, acImage, acCommandButton 
 Set hlk = ctlSelected.Hyperlink 
 With hlk 
 If Not IsMissing(strAddress) Then 
 .Address = strAddress 
 Else 
 .Address = "" 
 End If 
 .SubAddress = strSubAddress 
 .Follow 
 .Address = "" 
 .SubAddress = "" 
 End With 
 Case Else 
 MsgBox "The control '" & ctlSelected.Name _ 
 & "' does not support hyperlinks." 
 End Select 
End Sub

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.