Macro para abrir hiperlink sem mouse

[LeandroVieira]

Olá pessoal!

Precisaria de uma macro para abrir um hiperlink em uma célula ativa sem mouse, tipo essa do VBA, porém para executar no Basic:

Sub SimulateMouseClickonHyperlink()
ActiveCell.Hyperlinks(1).Follow
End Sub

fonte: ExtendOffice

Basicamente ao clicar no botão giratório quero acessar o hiperlink que está na célula destacada de amarelo, o endereço da célula varia mediante os endereços que vou salvando na planilha “albd” e mudando com botão giratório:

segue planilha em anexo para exemplo:

Abrir hiperlink.ods

Desde já agradeço!

[schiavinatto]

Ola @LeandroVieira, como seria ativada ?

De uma olhada nestas perguntas:

Macro - colar como hiperlink

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.

Criar hiperlink para outra planilha com macros

Preciso criar um hiperlink que só funcione se o valor de uma celula for igual ao número que eu desejo. Por isso preciso saber como fazer um hiperlink que mude da planilha. Por favor me ajudem !

[LeandroVieira]

Seria ativada via macro acionada por botão:

    sub selecionar
    rem ----------------------------------------------------------------------
    rem define variables
    dim document   as object
    dim dispatcher as object
    rem ----------------------------------------------------------------------
    rem get access to the document
    document   = ThisComponent.CurrentController.Frame
    dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
    
    rem ----------------------------------------------------------------------
    dim args1(0) as new com.sun.star.beans.PropertyValue
    args1(0).Name = "ToPoint"
    args1(0).Value = "$G$6"
    
    dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())

...

A função hiperlink na célula $G$6, que me dará acesso à localização que desejo, ou seja a localização que a função irá gerar é variável, mediante botão giratório.

[schiavinatto]

@LeandroVieira, esse hiperlink vai para local externo ou na próprio arquivo.

Seria algo assim, (Caixa de listagem no Calc)

mas não em Caixa de listagem e sim em Botão Giratório ?

[LeandroVieira]

Vou editar o arquivo aqui, e compartilhar para facilitar, seria algo parecido a isso.

[schiavinatto]

@LeandroVieira, de um exemplo desse hiperlink.

[LeandroVieira]

A pergunta foi editada e coloquei um anexo para exemplo, os exemplos que observei na resposta está trabalhado com endereços fixos, no meu caso é variável.

[Conras]

@LeandroVieira, e se ao invés de “abrir clicando no hyperlink”, você utilizar o comando activecell para recuperar o endereço da célula com base no spin button, colocar o conteúdo na célula numa variável e utilizar o procedimento open? (sendo se: o link do documento esteja no conteúdo da célula)

[schiavinatto]

@LeandroVieira, A Função HIPERLINK creio que é para ligações externas. No seu caso a planilha já esta aberta.

[schiavinatto]

@LeandroVieira, veja arquivo teste 3 na resposta abaixo.

[schiavinatto]

@LeandroVieira, é algo assim que necessita:

No Botão giratório, escolher o Numero do locar a ir.

Ao retirar o cursor de cima do Botão, a macro é executada.

arquivo teste.

---

arquivo teste 2.

Com botões sensíveis, não necessário clicar

---

arquivo teste 3.

---

ATENÇÂO:: Para dar mais detalhes a sua pergunta, use na pergunta ou abaixo. Grato.

Caso a resposta atendeu sua necessidade, por gentileza, click na bolinha a esquerda da resposta, para finalizar a pergunta.

[LeandroVieira]

Como tive que complementar a resposta, marquei a minha como correta para finalizar a pergunta, todavia pontuei a sua, pois solucionou a principal dúvida, e não tem como marcar duas respostas corretas.

[LeandroVieira]

Agradeço aos comentários e pela contribuição da macro para se deslocar para endereço, uma vez que se utilizasse a função hiperlink teria que clicar na célula para me deslocar ao local, pois não conhecia outra forma.

Para que a macro fornecida pelo Gilberto Schiavinatto abra o endereço salvo no histórico em “albd” que está exibido em C11 utilizei a função “=INDIRETO(D8&".A"&G6)”; também, tive que inserir a fórmula: “=EXT.TEXTO(CÉL("FILENAME";INDIRETO(ENDEREÇO(LINHA( );COLUNA( );4)));LOCALIZARB("$";CÉL("FILENAME";INDIRETO(ENDEREÇO(LINHA( );COLUNA( );4))))+1;NÚM.CARACT(CÉL("FILENAME";INDIRETO(ENDEREÇO(LINHA( );COLUNA( );4))))-LOCALIZARB("$";CÉL("FILENAME";INDIRETO(ENDEREÇO(LINHA( );COLUNA( );4)))))&"!"&ENDEREÇO(LINHA( );COLUNA( );4)” na macro “copia_cola_end” acionada pelo botão de salvar localização (endereço),com nome da célula e aba, para quando estiver em outra planilha poder retroceder e avançar nas localizações salvas dentro do documento.
Segue o arquivo:

Abrir hiperlink.ods