Como associar um botão de comando a um endereço URL no Excel?
No Excel, criar uma hiperligação para uma forma geométrica é fácil — mas já tentou fazer o mesmo com um botão de comando? Ao clicar nesse botão, ele redireciona diretamente para o site especificado, exatamente como você precisa. Neste artigo, partilho alguns truques rápidos e simples para realizar esta tarefa no Excel.
Hiperligar um botão de comando a um endereço URL com código VBA
Hiperligar um botão de comando a um endereço URL com código VBA
Para hiperligar um botão de comando, siga os passos seguintes:
1. Clique em Programador > Inserir > Botão de Comando (Controlo ActiveX) e, de seguida, desenhe um botão conforme ilustrado na imagem seguinte:
2. Após inserir o botão de comando, clique com o botão direito do rato sobre ele e escolha Propriedades no menu de contexto. Na caixa de diálogo Propriedades, clique no separador Categorizado e introduza o endereço completo do site que pretende associar na caixa de texto Legenda, conforme mostrado na imagem:
3. Em seguida, feche a caixa de diálogo, clique com o botão direito do rato no separador da folha que contém o botão de comando e selecione Ver Código no menu de contexto. Na janela Microsoft Visual Basic para Aplicações aberta, copie e cole o código seguinte no módulo em branco:
Código VBA: hiperligação para um botão de comando:
Private Sub CommandButton1_Click()
ActiveWorkbook.FollowHyperlink _
Address:=CommandButton1.Caption
End Sub
Nota: No código acima, CommandButton1 é o nome do botão de comando criado; altere-o conforme necessário.
4. Guarde o código e saia do Modo de Estrutura. Depois, ao clicar no botão de comando, será redirecionado para a página web específica.
Dicas: Se a legenda no botão de comando não for o endereço URL, mas apenas uma cadeia de texto, como mostrado na imagem seguinte:
Pode aplicar o código VBA abaixo para obter esse resultado:
Código VBA: hiperligação para um botão de comando:
Private Sub CommandButton1_Click()
ActiveWorkbook.FollowHyperlink _
Address:="https://www.extendoffice.com"
End Sub
Nota: No código acima, CommandButton1 é o nome do botão de comando criado e deverá substituir o endereço do site https://www.extendoffice.com pelo seu próprio URL.
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos