Compartilhar via

Hyperlinks.Add method (Publisher)

Adiciona um novo objeto Hiperligação à coleção de Hiperligações especificada e devolve o novo objeto Hiperligação .

Sintaxe

expressão. Adicionar (Texto, Endereço, Página Relativa, PageID, TextToDisplay)

expressão Uma variável que representa um objeto Hyperlinks.

Parâmetros

Nome Obrigatório/Opcional Tipo de dados Descrição
Text Obrigatório TextRange Objeto TextRange. O intervalo de texto a ser convertido em um hiperlink.
Address Opcional String O endereço do novo hiperlink. Se RelativePage for pbHlinkTargetTypeURL (predefinição) ou pbHlinkTargetTypeEmail, o Endereço tem de ser especificado ou ocorre um erro.
Página Relativa Opcional PbHlinkTargetType O tipo de hiperlink a ser adicionado. Pode ser uma das constantes PbHlinkTargetType ; a predefinição é pbHlinkTargetTypeURL.
PageID Opcional Long A identificação de página da página de destino do novo hiperlink. Se RelativePage for pbHlinkTargetTypePageID, PageID tem de ser especificado ou ocorrer um erro. A identificação da página corresponde à propriedade PageID da página de destino.
TextToDisplay Opcional String O texto de exibição do novo hiperlink. Se especificado, TextToDisplay substitui o intervalo de texto especificado pelo argumento Text.

Valor de retorno

Hiperlink

Exemplo

O exemplo a seguir adiciona hiperlinks à forma um e à forma dois na página um da publicação ativa. A primeira hiperligação aponta para um site externo e a segunda ligação aponta para a quarta página da publicação. A forma um e a forma dois têm de ser caixas de texto e tem de haver, pelo menos, quatro páginas na publicação para que este exemplo funcione.

Dim hypNew As Hyperlink 
Dim lngPageID As Long 
Dim strPage As String 
 
With ActiveDocument.Pages(1).Shapes(1).TextFrame 
 Set hypNew = .TextRange.Hyperlinks.Add(Text:=.TextRange, _ 
 Address:="https://www.tailspintoys.com/", _ 
 TextToDisplay:="Tailspin") 
End With 
 
lngPageID = ActiveDocument.Pages(4).PageID 
strPage = "Go to page " _ 
 & Str(ActiveDocument.Pages(4).PageNumber) 
 
With ActiveDocument.Pages(1).Shapes(2).TextFrame 
 Set hypNew = .TextRange.Hyperlinks.Add(Text:=.TextRange, _ 
 RelativePage:=pbHlinkTargetTypePageID, _ 
 PageID:=lngPageID, _ 
 TextToDisplay:=strPage) 
End With

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.

  • Last updated on