Compartir a través de

Método Hyperlink.AddToFavorites (Visio)

  • Artículo

Agrega un acceso directo para una dirección de hipervínculo a la carpeta Favoritos actualmente registrada.

Sintaxis

expresión. AddToFavorites( _FavoritesTitle_ )

Expresión Variable que representa un objeto Hyperlink .

Parameters

Nombre Obligatorio/opcional Tipo de datos Descripción
FavoritosTitle Opcional Variant Título que se asigna al nuevo acceso directo.

Valor devuelto

Nothing

Comentarios

Si no se proporciona una cadena, el método AddToFavorites utiliza la propiedad Description del hipervínculo como título del nuevo favorito. Si la propiedad Description está vacía, se asigna un título genérico al acceso directo, como Favorito1.

El argumento opcional favoritesTitle puede especificar la ruta de acceso completa para el archivo favoritos, por ejemplo, "C:\Users\ username \Favorites\My Favorite.URL" o una ruta de acceso relativa a la carpeta Favoritos.

En Microsoft Visual Basic o Microsoft Visual Basic para Aplicaciones (VBA), una llamada al método AddToFavorites puede tener cualquiera de estas dos formas:

object.AddToFavorites "SomeString " 
object.AddToFavorites

En C/C++, si se proporciona una cadena, pase un valor Variant de tipo VT_BSTR. La aplicación asigna la cadena como título del acceso directo. Si no se proporciona ninguna cadena, pase un valor Variant de tipo VT_EMPTY o de tipo VT_ERROR y HRESULT DISP_E_PARAMNOTFOUND.

Ejemplo:

La macro siguiente muestra cómo agregar un hipervínculo a una forma y asignar una descripción y una dirección al hipervínculo. A continuación, muestra cuatro formas de utilizar el método AddToFavorites para agregar el hipervínculo a la carpeta Favoritos.

Antes de ejecutar esta macro, reemplace address con una dirección de Internet o intranet válida y reemplace path con una ruta de acceso y un nombre de carpeta válidos, incluyendo la letra de la unidad en su equipo si es preciso.

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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.