Control Buttons Id 1

[simoncpage]

Anyone have a list of ids for control buttons i.e ID:=21 is for cut??

Any help would be great!

 

[Loomah]

Not a definative answer but I'm short of time at the mo'
Try this for each bar, it'll get you on your way

Sub test2()
Dim ctl
For Each ctl In CommandBars("Standard&quot.Controls
Debug.Print ctl.Id, ctl.Caption,
Next ctl
End Sub

Happy Friday
;-)

 

[Loomah]

Actually, hold that thought.
I did the above on xl97 and it worked fine. Now I'm back on my Office2000 machine it's not working.

:-(

 

[Loomah]

My poor little pc isn't having a nice day :-( BSODs and all.

Anyway, the code I said didn't work on xl2k does and is amended below to list each control on each command bar.

Sub test2()
Dim ctl, cbar
On Error Resume Next
For Each cbar In CommandBars
Debug.Print cbar.Name, cbar.Index
For Each ctl In CommandBars(cbar.Name).Controls
Debug.Print ctl.ID, ctl.Caption
Next ctl
Next
End Sub

(Not so) Happy Friday (for my pc)
;-)