Pergunte aqui
2

Macro - colar como hiperlink

perguntadas 2017-03-23 21:06:18 +0100

imagem do gravatar de Beto

updated 2017-04-02 17:21:42 +0100

imagem do gravatar de Grafeno

Olá, gostaria de saber como colocar na macro para que cole como hiperlink o dado copiado. A exemplo dessa resposta do Grafeno: Definir-o-endereco-de-colagem que cola "value" número e "strings" textos.

editar alterar tag assinalar como ofensivo fechar mesclar Excluir

1 Resposta

2

respondidas 2017-03-25 15:40:33 +0100

imagem do gravatar de Grafeno

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,

editar assinalar como ofensivo Excluir Link mais

Comentários

1

Obrigado, colega! Era isso mesmo.

imagem do gravatar de BetoBeto ( 2017-03-26 03:29:09 +0100 )editar

Só fiquei com uma dúvida, se eu quero colar o hiperlink em outra planilha, como eu faria?

imagem do gravatar de BetoBeto ( 2017-03-27 22:33:23 +0100 )editar
1

@Beto, Acrescente a linha:

''
oPlan2 = ThisComponent.Sheets.getByName( "Planilha2" )
''

e troque a última por:

''
oPlan2.GetCellRangeByName( "B1" ).FormulaLocal = "=HIPERLINK(""" & sURL & """)"
''

Atte,

imagem do gravatar de GrafenoGrafeno ( 2017-03-28 22:23:41 +0100 )editar

Obrigado, novamente!

imagem do gravatar de BetoBeto ( 2017-03-28 22:33:11 +0100 )editar
Login/Registrar para responder

Ferramentas de perguntas

1 seguidor

Estatísticas

Perguntadas: 2017-03-23 21:06:18 +0100

Lidas: 38 vezes

Última atualização: Mar 25