Hyperlink.AddToFavorites 方法 (Visio)

在目前注册的收藏夹中添加超链接地址的快捷方式。

语法

表达式。AddToFavorites ( _FavoritesTitle_ )

表达 一个代表 Hyperlink 对象的变量。

参数

名称	必需/可选	数据类型	说明
FavoritesTitle	可选	Variant	要为新的快捷方式指定的标题。

返回值

Nothing

注解

如果没有提供字符串，则 AddToFavorites 方法将使用超链接的 Description 属性作为新收藏夹的标题。 如果 Description 属性为空，则会为快捷方式提供普通标题，如 Favorite1。

可选的 favoritesTitle 参数可以指定收藏夹文件的完整路径，例如“C：\Users\ username \Favorites\My Favorite.URL”或相对于收藏夹文件夹的路径。

在 Microsoft Visual Basic 或 Microsoft Visual Basic for Applications (VBA) 中，对 AddToFavorites 方法的调用可以采用以下两种形式之一：

object.AddToFavorites "SomeString " 
object.AddToFavorites 

在 C/C++ 中，如果提供了字符串，则应传递 VT_BSTR 类型的 Variant。 应用程序会将该字符串指定为快捷方式标题。 如果未提供字符串，则应传递 VT_EMPTY 类型或 VT_ERROR 和 HRESULT DISP_E_PARAMNOTFOUND 类型的 Variant。

示例

下面的宏说明如何在形状中添加超链接以及如何为超链接指定说明和地址。 接下来说明四种使用 AddToFavorites 方法向收藏夹中添加超链接的方式。

运行此宏之前，请将 address 替换为有效的 Internet 或 Intranet 地址，并将 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 支持和反馈，获取有关如何接收支持和提供反馈的指南。