Botão com Macro VBA


Através de botões conseguimos inserir uma interface amigável para o uso de macros.


Inserir Botão (Controles de Formulários)

Existem dois tipos de elementos que podemos inserir partindo da aba Inserir da guia Desenvolvedor:

Por hora utilizaremos os Controles de Formulários, pois são mais simples.

  1. Vá para a Guia Desenvolvedor
  2. Clique em Inserir
  3. Escolha o Botão (Controle de Formulário) do Controle de Formulários
  4. Ajuste o tamanho e local do botão que deseja segurando e arrastando botão esquerdo do mouse. Solte quando estiver satisfeito.
  5. Selecione uma macro e clique Ok (ou grave uma nova macro)
  6. Clique fora do botão para sair do modo de edição
Adicionar Botão

Para renomear o botão, clique com o botão direito do mouse e clique em Editar texto.


Inserir Forma com Macro VBA

É possível também associar a uma Forma uma macro.

  1. Clique na guia Inserir
  2. Clique em Formas
  3. Escolha uma forma (por exemplo, um retângulo)
  4. Clique com botão esquerdo do mouse, segure e arraste para criar a forma
  5. Nomeie a sua forma (apenas clique nela e comece a digitar)
  6. Clique com botão direito do mouse e selecione "Atribuir uma macro..."
  7. Selecione uma macro a ser atribuída e clique Ok (ou grave uma macro)
Forma com Macro

Utilizando Macro com Botão (ou com Forma)

Caso não tenha uma macro gravada no momento em que inseriu o botão (ou uma Forma), poderá gravá-la e atribuí-la posteriormente ao botão.

Para atribuir uma macro a um botão (ou a uma forma) basta clicá-lo com o botão direito do mouse e ir em "Atribuir uma macro...".

Para fins didáticos crie com o gravador de macros uma macro simples que altera a cor do texto para verde. Esta macro será atribuída a um botão que inserimos previamente na planilha.

Lembre-se de usar referências relativas.

Para este exemplo foi executado o procedimento de gravar uma macro e em seguida foi adicionada uma cor ao texto, na guia Página Inicial $\rightarrow$ Fonte $\rightarrow$ Cor da Fonte (Cor da fonte).

Botão com Macro

Macro atribuída ao Botão:

Sub Macro1()
'
' Macro1 Macro
'

'
    With Selection.Font
        .Color = -12597620
        .TintAndShade = 0
    End With
End Sub

Agora basta selecionar uma ou mais células com texto, clicar no botão, e a cor do texto se tornará verde.



Fixando o Aprendizado

Exercício Sugerido

Pintar Selecionadas


SuperExcelVBA.com é um site voltado ao aprendizado de VBA. Exemplos e explicações podem ter sido simplificados para maior e mais veloz compreensão. Estamos constantemente nos atualizando e corrigindo erros, porém não existe garantia sobre o conteúdo disponível no site. Todos os direitos reservados.

Excel ® é uma marca registrada da Microsoft Corporation.

© 2024 SuperExcelVBA | SOBRE

Protected by Copyscape