Hyperlink.AddToFavorites-Methode (Visio)
Fügt eine Verknüpfung für eine Hyperlinkadresse in dem derzeit registrierten Favoritenordner hinzu.
Ausdruck. AddToFavorites( _FavoritesTitle_
)
Ausdruck Eine Variable, die ein Hyperlink-Objekt darstellt.
Name | Erforderlich/Optional | Datentyp | Beschreibung |
---|---|---|---|
FavoritenTitle | Optional | Variant | Der Titel, der der neuen Verknüpfung zugewiesen werden soll. |
Nichts
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.
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
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.