Méthode Hyperlink.AddToFavorites (Visio)

Article
04/07/2023

Ajoute un raccourci pour une adresse de lien hypertexte dans le dossier Favoris actuellement enregistré.

Syntaxe

expression. AddToFavorites( _FavoritesTitle_ )

Expression Variable qui représente un objet Hyperlink .

Parameters

Nom	Requis/Facultatif	Type de données	Description
FavoritesTitle	Facultatif	Variant	Titre à attribuer au nouveau raccourci.

Valeur renvoyée

Aucune

Remarques

Si aucune chaîne n'est fournie, la méthode AddToFavorites utilise la propriété Description du lien hypertexte comme titre du nouveau favori. Si la propriété Description est vide, le raccourci reçoit un titre générique, tel que Favori1.

L’argument facultatif favoritesTitle peut spécifier le chemin d’accès complet du fichier des favoris, par exemple, « C:\Users\ username \Favorites\My Favorite.URL », ou un chemin relatif au dossier Favoris.

À partir de Microsoft Visual Basic ou Microsoft Visual Basic pour Applications (VBA), un appel à la méthode AddToFavorites peut se présenter de l'une des deux façons suivantes :

object.AddToFavorites "SomeString " 
object.AddToFavorites

En C/C++, si une chaîne est fournie, transmettez une variable Variant de type VT_BSTR. L'application attribue la chaîne comme titre du raccourci. Si aucune chaîne n'est fournie, transmettez une variable Variant de type VT_EMPTY ou VT_ERROR et HRESULT DISP_E_PARAMNOTFOUND.

Exemple

La macro suivante indique comment ajouter un lien hypertexte à une forme et attribuer une description et une adresse au lien hypertexte. Ensuite, elle montre quatre manières d'utiliser la méthode AddToFavorites pour ajouter le lien hypertexte au dossier Favoris.

Avant d'exécuter cette macro, remplacez adresse par une adresse Internet ou intranet valide et chemin par un chemin d'accès valide et un nom de dossier, y compris, au besoin, la lettre du lecteur sur votre ordinateur.

Sub AddToFavorites_Example() 
 
 Dim vsoShape As Visio.Shape 
 Dim vsoHyperlink As Visio.Hyperlink 
 
 'Create a new shape to add the hyperlink to. 
 Set vsoShape = ActivePage.DrawRectangle(1, 2, 2, 1) 
 Set vsoHyperlink = vsoShape.AddHyperlink 
 
 'Assign a description and an address to the hyperlink. 
 vsoHyperlink.Description = "Web site" 
 vsoHyperlink.Address = "https://address " 
 
 'Use the default name for the new favorite link. 
 vsoHyperlink.AddToFavorites 
 
 'Specify a different name for the new favorite link. 
 'You don't need to specify the URL extension. 
 vsoHyperlink.AddToFavorites "New Favorite Name" 
 
 'Specify a different path to the favorite. 
 vsoHyperlink.AddToFavorites "path\favoriteName " 
 
 'Set a hyperlink base to allow relative hyperlinks. 
 ThisDocument.HyperlinkBase = "path " 
 
 'Specify a relative path to the Favorites folder. 
 'The URL extension is added automatically. 
 vsoHyperlink.AddToFavorites ".\favoriteName " 
 
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.

Partager via