Hinweis
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, sich anzumelden oder das Verzeichnis zu wechseln.
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, das Verzeichnis zu wechseln.
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.