Метод Hyperlink.AddToFavorites (Visio)

Статья
04/07/2023

Добавляет ярлык для адреса гиперссылки в зарегистрированной папке Избранное.

Синтаксис

expression. AddToFavorites( _FavoritesTitle_ )

Выражение Переменная, представляющая объект Гиперссылка .

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
ИзбранноеTitle	Необязательный	Variant	Заголовок, присваиваемый новому ярлыку.

Возвращаемое значение

Отсутствует

Примечания

Если строка не указана, метод AddToFavorites использует свойство Description гиперссылки в качестве заголовка нового избранного. Если свойство Description пусто, ярлыку присваивается универсальный заголовок, например Избранное1.

Необязательный аргумент favoritesTitle может указывать полный путь к файлу избранного, например "C:\Users\ username \Favorites\My Favorite.URL" или путь относительно папки Избранное.

Из Microsoft Visual Basic или Microsoft Visual Basic для приложений (VBA) вызов метода AddToFavorites может принимать следующие две формы:

object.AddToFavorites "SomeString " 
object.AddToFavorites

В C/C++, если указана строка, передайте variant с типом VT_BSTR. Приложение назначает строку в качестве заголовка ярлыка. Если строка не указана, передайте variant с типом VT_EMPTY или с типом VT_ERROR и HRESULT DISP_E_PARAMNOTFOUND.

Пример

В следующем макросе показано, как добавить гиперссылку на фигуру и назначить ей описание и адрес. Затем показаны четыре способа добавления гиперссылки в папку Избранное с помощью метода AddToFavorites .

Перед выполнением этого макроса замените адрес допустимым адресом в Интернете или интрасети, а путь — допустимым путем и именем папки, включая букву диска, если это необходимо, на компьютере.

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 и обратная связь.

Поделиться через