VBA Adicionar o commandButton e o seu código

Dezembro 2016


Código relativamente simples e não requer nenhuma explicação adicional.
Cole estes dois "sub" em um módulo geral (ex: Módulo1).

Sub CriarBotão()        

Dim Obj As Object        
Dim Code As String        

Sheets("Plan1").Select        

'Criado o botão        
    Set Obj = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", _        
    Link:=False, DisplayAsIcon:=False, Left:=200, Top:=100, Width:=100, Height:=35)        
    Obj.Name = "BoutonTest"        
'teste do botão        
    ActiveSheet.OLEObjects(1).Object.Caption = "Testar o botão "        

'O teste do macro        
    Code = "Sub BoutonTest_Click()" & vbCrLf        
    Code = Code & "Call Testar" & vbCrLf        
    Code = Code & "End Sub"        
'Adicione o macro no final do módulo planilha        
    With ActiveWorkbook.VBProject.VBComponents(ActiveSheet.Name).CodeModule        
        .insertlines .CountOfLines + 1, Code        
    End With        
End Sub        

Sub Testar()        
    MsgBox "Você clicou no botão do teste"        
End Sub


DownLoad : Adicionr_botões_e_códigos.xls

Tradução feita por Lucia Maurity y Nouira

Veja também

Artigo original publicado por . Tradução feita por pintuda. Última modificação: 26 de janeiro de 2013 às 14:13 por pintuda.
Este documento, intitulado 'VBA Adicionar o commandButton e o seu código', está disponível sob a licença Creative Commons. Você pode copiar e/ou modificar o conteúdo desta página com base nas condições estipuladas pela licença. Não se esqueça de creditar o CCM (br.ccm.net) ao utilizar este artigo.