Macro - colar como hiperlink

editar

Bom dia,

Não existe um tipo de conteúdo "hiperlink" como existe value (valor), string (texto) ou formula. Mas, olhando para as formulas do Calc, existe a função HIPERLINK(), que acho bastante interessante.

Então, o que pode ser feito é pegar o dado, convertê-lo em uma URL e inseri-lo numa expressão com sintaxe da função HIPERLINK().

Exemplo: Assumindo que na célula A1 da aba "Planilha1" contenha o endereço D:\Exemplo\Outro arquivo.ods podemos inserir a função Hiperlink por macro em B1:

Sub Main
Dim oPlan As Object
Dim sURL As String

   oPlan = ThisComponent.Sheets.getByName( "Planilha1" )

   sURL = convertToURL( oPlan.getCellRangeByName("A1").String )

   oPlan.GetCellRangeByName( "B1" ).FormulaLocal = "=HIPERLINK(""" & sURL & """)"
End Sub

Atte,