miten lisätä painike?

eipähän ole vastaan tullut ennen tämmöstä pyyntöä... en tiedä mitä aiot tehdä mutta hankalaa on tehdä tällä tavoin.Onko tarkoitus lisäillä useampiakin nappeja???

varmista,että sulla on Module1 ja lisää koodi.

Sub LisääNappijakoodi()
Dim ox As Object
Dim ModuulinNimi As String
Dim NapinTeksti As String
Dim x As Integer
Dim y As Integer
Dim korkeus As Integer
Dim leveys As Integer
On Error Resume Next
ModuulinNimi = ActiveSheet.Name
NapinTeksti = InputBox("Anna napin teksti")
x = InputBox("Anna x:n arvo")
y = InputBox("Anna y:n arvo")
korkeus = InputBox("Anna korkeus")
leveys = InputBox("Anna pituus")

ActiveSheet.OLEObjects.Add "Forms.CommandButton.1", _
Left:=x, Top:=y, Height:=korkeus, Width:=leveys
ActiveSheet.OLEObjects("CommandButton1").Object.Caption = NapinTeksti
nimi = ActiveSheet.Name
Set ox = Application.VBE.ActiveVBProject.VBComponents
With ox.Item(ModuulinNimi).CodeModule
.InsertLines .CountOfLines 1, "Private Sub CommandButton1_Click()"
.InsertLines .CountOfLines 1, "Macro1"
.InsertLines .CountOfLines 1, "End Sub" & Chr(13)
End With
With ox.Item("Module1").CodeModule
.InsertLines .CountOfLines 1, "Sub Macro1()"
.InsertLines .CountOfLines 1, "MsgBox ""hei"""
.InsertLines .CountOfLines 1, "End Sub" & Chr(13)
End With
On Error GoTo 0
End Sub