Partilhar via

Propriedade Hyperlink.SubAddress (Visio)

  • Artigo

Obtém ou define o subendereço em um objeto Hyperlink de uma forma. Leitura/gravação.

Sintaxe

expressão. Subendereço

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

Valor de retorno

Cadeia de caracteres

Comentários

Definir a propriedade SubAddress de um objeto Hyperlink de uma forma é opcional, a menos que a propriedade Address esteja em branco. Nesse caso, o SubAddress deve conter o nome da página de desenho.

Definir a propriedade SubAddress de um hiperlink é equivalente a inserir informações na caixa de diálogo Sub-endereço na caixa de diálogo Hiperlinks (na guia Inserir , clique em Hiperlink). Isso é também equivalente a definir o resultado da célula SubAddress na linha Hyperlink. name da forma na janela ShapeSheet.

A propriedade SubAddress de um objeto Hyperlink especifica um sublocal no endereço do hiperlink. Para arquivos do Microsoft Visio, isso pode ser o nome de uma página. Para o Microsoft Excel, isso pode ser uma planilha ou um intervalo em uma planilha. Para páginas HTML, isso pode ser uma sub-âncora.

O endereço do hiperlink para o qual um subendereço está sendo fornecido deve suportar vínculo com o subendereço.

Exemplo

O seguinte exemplo mostra como usar a propriedade SubAddress para definir o subendereço de um hiperlink. Antes de executar essa macro, substitua a unidade\ pasta\subpasta por um caminho válido em seu computador, substitua o endereço por uma Internet ou endereço intranet válido, substitua subaddress por um subaddress válido para a Internet ou endereço de intranet, substitua drawing.vsd por um arquivo válido em seu computador e substitua âncora por uma página e forma válidas no arquivo.

 
Sub SubAddress_Example() 
 
 Dim vsoShape As Visio.Shape 
 Dim vsoHyperlink As Visio.Hyperlink 
 
 'Draw a rectangle shape on the active page. 
 Set vsoShape = ActivePage.DrawRectangle(1, 2, 2, 1) 
 
 'Add a hyperlink to the shape. 
 Set vsoHyperlink = vsoShape.AddHyperlink 
 
 'Allow relative hyperlink addresses. 
 ActiveDocument.HyperlinkBase = "drive:\folder\subfolder " 
 
 'Return a relative address. 
 vsoHyperlink.Address = "..\drawing.vsd " 
 
 'Return a relative subaddress. 
 vsoHyperlink.SubAddress = "anchor " 
 
 'Print the resulting URLs to the Debug window 
 'to show how the relative path is derived 
 'from the base path and the difference 
 'between canonical and noncanonical forms. 
 Debug.Print vsoHyperlink.CreateURL(False) 
 Debug.Print vsoHyperlink.CreateURL(True) 
 
 'Return an absolute address. 
 vsoHyperlink.Address = "https://address " 
 
 'Return an absolute subaddress. 
 vsoHyperlink.SubAddress = "../subaddress " 
 
 'Print the resulting URL to the Debug window 
 Debug.Print vsoHyperlink.CreateURL(False) 
 
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.