Hyperlink.AddToFavorites 方法 (Visio)

會在目前登錄的 [我的最愛] 資料夾中，新增超連結位址的捷徑。

語法

運算式。AddToFavorites ( _FavoritesTitle_ )

表達 代表 Hyperlink 物件的變數。

參數

名稱	必要/選用	資料類型	描述
FavoritesTitle	選用	Variant	會指派給新捷徑的標題。

傳回值

無

註解

如果未提供字串，AddToFavorites 方法會使用超連結的 Description 屬性做為新的我的最愛標題。 如果 Description 屬性是空白的，會給捷徑一個通用的標題，例如，Favorite1。

選擇性的 favoritesTitle 引數可以指定我的最愛檔案的完整路徑，例如 「C：\Users\ username \Favorites\My Favorite.URL」，或相對於 Favorites 資料夾的路徑。

對 AddToFavorites 方法的呼叫會採用 Microsoft Visual Basic 或 Microsoft Visual Basic for Applications (VBA) 兩者其中一種格式：

object.AddToFavorites "SomeString " 
object.AddToFavorites 

在 C/C++ 中，如果有提供字串，則會傳遞 VT_BSTR 類型的 Variant。 應用程式會指派字串做為捷徑的標題。 如果沒有提供字串，會傳遞 VT_EMPTY 或 VT_ERROR 和 HRESULT DISP_E_PARAMNOTFOUND 類型的 Variant。

範例

下列巨集會顯示新增超連結至圖形的方式，並指派描述與位址給超連結。 然後會顯示使用 AddToFavorites 方法，將超連結新增至 [我的最愛] 資料夾的四種方式。

執行此巨集之前，請以有效的網際網路或內部網路位址取代 address，並以有效的路徑和資料夾名稱取代 path，可視需要包含電腦上的磁碟機代號。

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

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。