Método Hyperlink.AddToFavorites (Visio)
Adiciona um atalho para um endereço de hiperlink na pasta Favoritos registrada no momento.
Sintaxe
expressão. AddToFavorites( _FavoritesTitle_ )
Expressão Uma variável que representa um objeto Hyperlink .
Parâmetros
| Nome | Obrigatório/Opcional | Tipo de dados | Descrição |
|---|---|---|---|
| FavoritesTitle | Opcional | Variantes | O título a atribuir ao novo atalho. |
Valor de retorno
Nada
Comentários
Se uma sequência de caracteres não é fornecida, o método AddToFavorites usa a propriedade Description do hiperlink como o novo título favorito. Se a propriedade Description estiver vazia, o atalho recebe um título genérico, como Favorito1.
O argumento favoritesTitle opcional pode especificar o caminho completo para o arquivo de favoritos, por exemplo, "C:\Users\ nome de usuário \Favorites\My Favorite.URL", ou um caminho relativo à pasta Favoritos.
A partir do Microsoft Visual Basic ou do Microsoft Visual Basic for Applications (VBA), uma chamada para o método AddToFavorites pode tomar uma das duas formas a seguir:
object.AddToFavorites "SomeString "
object.AddToFavorites
De C/C++, se uma sequência de caracteres for fornecida, passe um Variant do tipo VT_BSTR. O aplicativo atribui a sequência de caracteres como o título do atalho. Se uma sequência de caracteres não for fornecida, passe um Variant do tipo VT_EMPTY ou do tipo VT_ERROR e HRESULT DISP_E_PARAMNOTFOUND.
Exemplo
A seguinte macro mostra como adicionar um hiperlink a uma forma e atribuir uma descrição e um endereço ao hiperlink. Em seguida, ela mostra quatro maneiras de usar o método AddToFavorites para adicionar o hiperlink à pasta Favoritos.
Antes de executar essa macro, substitua address por um endereço válido de Internet ou intranet e substitua path por um caminho válido e um nome de pasta, incluindo a letra da unidade, se necessário, em seu computador.
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
Suporte e comentários
Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.