Hyperlink.AddToFavorites-Methode (Visio)

Artikel
04/07/2023

Fügt eine Verknüpfung für eine Hyperlinkadresse in dem derzeit registrierten Favoritenordner hinzu.

Syntax

Ausdruck. AddToFavorites( _FavoritesTitle_ )

Ausdruck Eine Variable, die ein Hyperlink-Objekt darstellt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
FavoritenTitle	Optional	Variant	Der Titel, der der neuen Verknüpfung zugewiesen werden soll.

Rückgabewert

Nichts

Bemerkungen

Wenn keine Zeichenfolge angegeben wird, verwendet die AddToFavorites-Methode die Description-Eigenschaft des Links als Titel des neuen Favoriten. Wenn die Description-Eigenschaft leer ist, erhält die Verknüpfung einen generischen Titel, z. B. Favorite1.

Das optionale Argument favoritesTitle kann den vollständigen Pfad für die Favoritendatei angeben, z. B. "C:\Users\ username \Favorites\My Favorite.URL" oder einen Pfad relativ zum Favoritenordner.

In Microsoft Visual Basic oder Microsoft Visual Basic für Applikationen (VBA) kann ein Aufruf der AddToFavorites-Methode eine der folgenden beiden Formen aufweisen:

object.AddToFavorites "SomeString " 
object.AddToFavorites

Wenn in C/C++ eine Zeichenfolge eingegeben wird, übergeben Sie einen Variant-Wert vom Typ VT_BSTR. Die Anwendung weist die Zeichenfolge als Titel der Verknüpfung zu. Wenn keine Zeichenfolge eingegeben wird, übergeben Sie einen Variant-Wert vom Typ VT_EMPTY, oder vom Typ VT_ERROR und HRESULT DISP_E_PARAMNOTFOUND.

Beispiel

Das folgende Makro zeigt, wie Sie einem Shape einen Hyperlink hinzufügen und dem Hyperlink eine Beschreibung und eine Adresse zuweisen. Anschließend werden vier Möglichkeiten aufgezeigt, um mithilfe der AddToFavorites-Methode den Hyperlink dem Favoritenordner hinzuzufügen.

Bevor Sie dieses Makro ausführen, sollten Sie address durch eine gültige Internet- oder Intranetadresse ersetzen, sowie path durch einen gültigen Pfad- und Ordnernamen, einschließlich, soweit erforderlich, des Laufwerkbuchstabens auf dem Computer.

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

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.

Freigeben über