Método Hyperlinks.Add (Publisher)

Artigo
04/07/2023

Adiciona um novo objeto Hyperlink à coleção de Hiperlinks especificada e retorna o novo objeto Hyperlink .

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 (padrão) ou pbHlinkTargetTypeEmail, o endereço deverá ser especificado ou ocorrerá um erro.
RelativePage	Opcional	PbHlinkTargetType	O tipo de hiperlink a ser adicionado. Pode ser uma das constantes PbHlinkTargetType ; o padrão é pbHlinkTargetTypeURL.
PageID	Opcional	Long	A identificação de página da página de destino do novo hiperlink. Se RelativePage for pbHlinkTargetTypePageID, PageID deverá 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. O primeiro hiperlink aponta para um site externo e o segundo link aponta para a quarta página da publicação. A forma um e a forma dois devem ser caixas de texto, e deve 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.

Compartilhar via