Making an ActiveX Button with a sub binded

[nicolasnam]

Hi,
I'm looking for someway to implement the 'OnAction' command which only exists for the normal form control button into the following ActiveX Command Button.

Dim qb As Object 'Quit game button
Dim qbr As Range
Set qbr = ActiveSheet.Range("K14:K15")
Set qb = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Left:=qbr.Left, Top:=qbr.Top, Width:=qbr.Width, Height:=qbr.Height)
With qb
.Object.Caption = "Quit"
.Object.BackColor = RGB(244, 176, 132)
.OnAction = "end_game"
End With

P.S. This is my first day using VBA.

 

[Norie]

ActiveX buttons don't have an OnAction property, they have their own events, eg CommandButton1_Click etc.

Is there a reason you are using ActiveX buttons over Forms buttons?

 

[nicolasnam]

I need to make a colored button and I read that only ActiveX buttons can be customized in that way. It would be delightful if you could go into more detail regarding the 'CommandButton1_Click' or any other commands that would assist me.

 

[Norie]

Why not use a shape?

 

[nicolasnam]

Alright, I'll give that a shot. Cheers.