Skip to content

method Addhyperlink

Saulo Martins edited this page Jul 4, 2026 · 1 revision

Addhyperlink

:Addhyperlink(cLocation,ctooltip,cDisplay,cRef)
Cria um hyperlink na célula posicionada apontando para uma referência da planilha


Parâmetros

Parâmetro Tipo Descrição Obrigatório Obs
cLocation caractere Referência de destino, simples ("Teste!A1") ou intervalo ("Teste!A1:C3") Se vazio, remove o hyperlink da célula
ctooltip caractere Texto de dica exibido ao passar o mouse
cDisplay caractere Texto de exibição na célula
cRef caractere Referência da célula do link Default = célula posicionada pelo Pos/PosR

Retorno

Objeto - self (permite encadeamento de métodos)

Exemplo

Local oExcel     := custom.excel.Xlsx():New(cNomeFile="TstYExcel",cTipo="A")
Local nPosFont5  := oExcel:AddFont(nTamanho=11,xCorRGB="FF0000FF",cNome="Calibri",cfamily="2",lTachado=.T.) //Azul sublinhado
Local oStyleLink := oExcel:NewStyle():Setfont(nPosFont5)
oExcel:ADDPlan()
oExcel:ADDPlan(cNome="Teste",cCor="00AA00")
oExcel:SetPlanAt(1)
oExcel:PosR("A20"):SetValue("Link Planilha Teste"):Addhyperlink(cLocation="Teste!A1",ctooltip="Ir para teste"):SetStyle(oStyleLink)
oExcel:Save(GetTempPath())
oExcel:OpenApp()
oExcel:Close()

Obs

O hyperlink não altera a aparência da célula; aplique um estilo de fonte azul sublinhada para dar o aspecto de link, como no exemplo.


Clone this wiki locally