Partilhar via

Método Shape.AddHyperlink (Visio)

  • Artigo

Adiciona um objeto Hyperlink a uma forma do Microsoft Visio.

Sintaxe

expression. AddHyperlink

Expressão Uma variável que representa um objeto Shape .

Valor de retorno

Hiperlink

Comentários

Usar o método AddHyperlink é equivalente a adicionar um hiperlink a uma forma clicando em Hiperlinks na guia Inserir.

Se um objeto Hyperlink já existe para a forma, o método retornará uma referência ao objeto Hyperlink existente.

Exemplo

Esse exemplo mostra como usar o método AddHyperlink para adicionar um hiperlink a uma forma. Ele também mostra como capturar erros originados quando você tenta acessar hiperlinks inexistentes. Ele tenta primeiro acessar um hiperlink que não existe, gerando portanto um erro. Em seguida, ele adiciona o hiperlink e quando tenta acessar o hiperlink uma segunda vez, nenhum erro é gerado. Antes de executar este exemplo, substitua address por um endereço da Internet ou intranet válido.

 
Sub AddHyperlink_Example() 
 
 Dim vsoShape As Visio.Shape 
 Dim vsoHyperlink As Visio.Hyperlink 
 Dim blsCaught As Boolean 
 
 'Draw a rectangle shape on the active page. 
 Set vsoShape = ActivePage.DrawRectangle(1, 2, 2, 1) 
 
 'A shape that has no hyperlink should raise an exception 
 'when the Hyperlink property is accessed. 
 On Error GoTo lblCatch 
 
 blsCaught = False 
 Set vsoHyperlink = vsoShape.Hyperlink 
 
 If Not blsCaught Then 
 Debug.Print "ERROR - Hyperlink didn't throw an exception!" 
 End If 
 
 'Add a hyperlink to a shape. 
 Set vsoHyperlink = vsoShape.AddHyperlink 
 
 'Return an absolute address. 
 vsoHyperlink.Address = "address " 
 
 Exit Sub 
 
 lblCatch: 
 Debug.Print "Error was thrown : " & Err.Description 
 blsCaught = True 
 Resume Next 
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.