Partager via

Hyperlink.AddToFavorites Method

  • Article
Visio Automation Reference

Adds a shortcut for a hyperlink address in the presently registered Favorites folder.

Version Information
 Version Added:  Visio 5.0

Syntax

expression.AddToFavorites(FavoritesTitle)

expression   A variable that represents a Hyperlink object.

Parameters

Name Required/Optional Data Type Description
FavoritesTitle Optional Variant The title to assign to the new shortcut.

Return Value
Nothing

Remarks

If a string is not supplied, the AddToFavorites method uses the hyperlink's Description property as the new favorite's title. If the Description property is empty, the shortcut is given a generic title, such as Favorite1.

The optional favoritesTitle argument can specify the full path for the favorites file, for example, "C:\Documents and Settings\All Users\Favorites\My Favorite.URL", or a path relative to the Favorites folder.

From Microsoft Visual Basic or Microsoft Visual Basic for Applications (VBA), a call to the AddToFavorites method can take either of these two forms:

Visual Basic for Applications 
  object.AddToFavorites "SomeString" 
object.AddToFavorites

From C/C++, if a string is supplied, pass a Variant of type VT_BSTR. The application assigns the string as the title of the shortcut. If a string is not supplied, pass a Variant of type VT_EMPTY, or of type VT_ERROR and HRESULT DISP_E_PARAMNOTFOUND.

Example

The following macro shows how to add a hyperlink to a shape and assign a description and address to the hyperlink. Then it shows four ways to use the AddToFavorites method to add the hyperlink to the Favorites folder.

Before running this macro, replace address with a valid Internet or intranet address, and replace path with a valid path and folder name, including the drive letter, if necessary, on your computer.

Visual Basic for Applications 
  
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 = "http://<em>address</em>" 

'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 "<em>path\favoriteName</em>" 

'Set a hyperlink base to allow relative hyperlinks. 
ThisDocument.HyperlinkBase = "<em>path</em>" 

'Specify a relative path to the Favorites folder.
'The URL extension is added automatically. 
vsoHyperlink.AddToFavorites ".\<em>favoriteName</em>" 



End Sub

See Also