Como criar um hyperlink para um botão de comando em um endereço URL no Excel?

No Excel, pode ser fácil para nós criar um hyperlink para um botão de forma, mas você já tentou criar um hyperlink para um botão de comando? Quando você clica no botão de comando, ele irá para o site URL especificado que você precisa. Neste artigo, vou apresentar alguns truques rápidos e fáceis para lidar com essa tarefa no Excel.

Criar um hyperlink para um botão de comando em um endereço URL com código VBA

Criar um hyperlink para um botão de comando em um endereço URL com código VBA

Para criar um hyperlink para um botão de comando, siga os seguintes passos:

1. Clique em Desenvolvedor > Inserir > Botão de Comando (Controle ActiveX) e, em seguida, desenhe um botão conforme mostrado na captura de tela a seguir:

2. Após inserir o botão de comando, clique com o botão direito nele e escolha Propriedades no menu de contexto. Na caixa de diálogo Propriedades, clique na aba Categorizado e insira o endereço completo do site que deseja vincular na caixa de texto Legenda, veja a captura de tela:

3. Em seguida, feche a caixa de diálogo, clique com o botão direito na guia da planilha que contém o botão de comando e selecione Visualizar Código no menu de contexto. Na janela Microsoft Visual Basic for Applications aberta, copie e cole o seguinte código no Módulo em branco:

Código VBA: criar hyperlink para um botão de comando:

Private Sub CommandButton1_Click()
ActiveWorkbook.FollowHyperlink _
Address:=CommandButton1.Caption
End Sub

Observação: No código acima, CommandButton1 é o nome do botão de comando criado; altere-o conforme necessário.

4. E então salve o código e saia do Modo de Design. Agora, quando você clicar no botão de comando, ele irá para a página da web específica.

Dicas: Se a legenda no botão de comando não for o endereço URL, mas apenas uma sequência de texto como mostrado na captura de tela a seguir:

Você pode aplicar o seguinte código VBA para alcançar isso:

Código VBA: criar hyperlink para um botão de comando:

Private Sub CommandButton1_Click()
ActiveWorkbook.FollowHyperlink _
Address:="https://www.extendoffice.com"
End Sub

Observação: No código acima, CommandButton1 é o nome do botão de comando criado, e você deve substituir o endereço do site https://www.extendoffice.com pelo seu próprio endereço URL.