Método Hyperlink.CreateURL (Visio)
Retorna uma representação totalmente qualificada e opcionalmente canônica do endereço absoluto do hiperlink.
Sintaxe
expression. CreateURL( _CanonicalForm_ )
Expressão Uma variável que representa um objeto Hyperlink .
Parâmetros
| Nome | Obrigatório/Opcional | Tipo de dados | Descrição |
|---|---|---|---|
| CanonicalForm | Obrigatório | Integer | True (não zero) se forma canônica; caso contrário, False (0). |
Valor de retorno
Cadeia de caracteres
Comentários
O método CreateURL do objeto Hyperlink pode ser usado para resolver URLs relativos em relação a um endereço base de um hiperlink.
Quando você usa a forma canônica, o método CreateURL aplica regras de canonicalização de URL ao hiperlink. Somente espaços são codificados para URL durante a canonicalização. A porta 80 é usada para URLs HTTP e é removida durantes a canonicalização. Por exemplo, a URL "https://www.microsoft.com:80/" é retornado como "https://www.microsoft.com/", enquanto https://www.microsoft.com:1000/" é inalterado.
Exemplo
Veja alguns exemplos de resultados do método CreateURL:
Address = "https://www.microsoft.com/"
CreateURL(False) returns "https://www.microsoft.com/"
Address = "C:\My Documents\Spreadsheet.XLS"
CreateURL(False) returns "file://C:\My Documents\Spreadsheet.XLS"
CreateURL(True) returns "file://C:\My%20Documents\Spreadsheet.XLS"
Exemplo de caminho relativo:
Assume : Document.HyperlinkBase = "https://www.microsoft.com/widgets/"
Address = "../file.htm"
CreateURL(False) returns "https://www.microsoft.com/file.htm"
O seguinte exemplo mostra como usar o método CreateURL para resolver URLs relativos em comparação ao endereço base de um hiperlink. Antes de executar essa macro, substitua drive\folder\subfolder por um caminho de arquivo válido em seu computador, substitua o endereço por um endereço válido da Internet ou intranet e substitua drawing.vsd por um arquivo válido em seu computador.
Sub CreateURL_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 a shape
Set vsoHyperlink = vsoShape.AddHyperlink
'Allow relative hyperlink addresses
ActiveDocument.HyperlinkBase = "drive :\folder \subfolder "
'Return a relative address
vsoHyperlink.Address = "..\drawing.vsd "
'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 non-canonical forms
Debug.Print vsoHyperlink.CreateURL(False)
Debug.Print vsoHyperlink.CreateURL(True)
'Return an absolute address
vsoHyperlink.Address = "https://address "
'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.