Custom Command Bars

  • Thread starter Thread starter Barb Reinhardt
  • Start date Start date
B

Barb Reinhardt

I've figured out a way to add custom commands to the ROWS or CELLS
commandbars, but I only seem to be able to add one. Can someone help me
figure out how to add multiple custom commands to one of those command bars?

Thanks,

Barb Reinhardt
 
Hi,

Copie this in a general module

It's working in Excel 2003 and Excel 2007

'-----------------------------
Sub test()
Dim MBar As CommandBar

Set MBar = Application.CommandBars("Column")
'OR
'Set MBar = Application.CommandBars("Row")
With MBar
With .Controls.Add
.BeginGroup = True
.Caption = "NewCommand1"
.OnAction = "Happy_New_Year"
End With
With .Controls.Add
.Caption = "NewCommand2"
.OnAction = "OK"
End With
End With

End Sub
'-----------------------------
Sub Ok()
MsgBox "Is it working ?"
End Sub
'-----------------------------
Sub Happy_New_Year()
MsgBox "you too"
End Sub
'-----------------------------



"Barb Reinhardt" <[email protected]> a écrit dans le message de
groupe de discussion : (e-mail address removed)...
I've figured out a way to add custom commands to the ROWS or CELLS
commandbars, but I only seem to be able to add one. Can someone help me
figure out how to add multiple custom commands to one of those command bars?

Thanks,

Barb Reinhardt
 
Back
Top