VBA Adicionar o commandButton e o seu código

Novembro 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 :
Este documento, intitulado « VBA Adicionar o commandButton e o seu código »a partir de CCM (br.ccm.net) está disponibilizado sob a licença Creative Commons. Você pode copiar, modificar cópias desta página, nas condições estipuladas pela licença, como esta nota aparece claramente.