ComboBox

Utilisez la propriété Hyperlink pour renvoyer une référence à un objet Hyperlink et accéder aux propriétés et méthodes du lien hypertexte d’un contrôle. En lecture seule.

Syntaxe

expression. Lien hypertexte

Expression Variable qui représente un objet ComboBox .

Exemple

La procédure CreateHyperlink de l’exemple suivant définit les propriétés de lien hypertexte d’un bouton de commande, d’une étiquette ou d’un contrôle d’image sur les valeurs d’adresse et de sous-adresse passées à la procédure. Le paramètre d’adresse est un argument facultatif, car un lien hypertexte vers un objet dans la base de données active utilise uniquement le paramètre de sous-adresse.

Pour essayer cet exemple, créez un formulaire avec deux contrôles de zone de texte (txtAddress et txtSubAddress) et un bouton de commande (cmdFollowLink), puis collez ce qui suit dans la section Déclarations du module du formulaire.

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

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.