Which sub does a toolbar call?

[Bob]

I took over the support of Word macros done by other people and they were
heavy on the toolbars. The problem I'm having is I have all these toolbars I
need to debug and I can't figure out which sub they call. I actually tried
using this code

MsgBox Me.CommandBars("test1").Controls("test2").OnAction

but it returns an empty string. I can set it like and return what I set but
that doesn't help me.

 

[zkid]

Hi Bob,

Plug in the toolbar name and give this macro a try. The buttons are in
order from left to right. So, for each button, change the Item number in
sequence (i.e., 1 becomes 2, 2 becomes 3, etc.)

Sub GetToolbarMacro()

Dim myBar As CommandBar

Set myBar = CommandBars("[toolbar name]")
MsgBox myBar.Controls.Item(1).OnAction

End Sub

 

[Wraithchilde]

Excellent. Item was the member I was missing. Thanks.

Hi Bob,

Plug in the toolbar name and give this macro a try. The buttons are in
order from left to right. So, for each button, change the Item number in
sequence (i.e., 1 becomes 2, 2 becomes 3, etc.)

Sub GetToolbarMacro()

Dim myBar As CommandBar

Set myBar = CommandBars("[toolbar name]")
MsgBox myBar.Controls.Item(1).OnAction

End Sub

I took over the support of Word macros done by other people and they were
heavy on the toolbars. The problem I'm having is I have all these toolbars I
need to debug and I can't figure out which sub they call. I actually tried
using this code

MsgBox Me.CommandBars("test1").Controls("test2").OnAction

but it returns an empty string. I can set it like and return what I set but
that doesn't help me.

 

[zkid]

Glad I could help. This is just the best community, isn't it?! Especially
Helmut, Jay, Jean-Guy and Charles - you guys are so helpful and patient.

Excellent. Item was the member I was missing. Thanks.

Hi Bob,

Plug in the toolbar name and give this macro a try. The buttons are in
order from left to right. So, for each button, change the Item number in
sequence (i.e., 1 becomes 2, 2 becomes 3, etc.)

Sub GetToolbarMacro()

Dim myBar As CommandBar

Set myBar = CommandBars("[toolbar name]")
MsgBox myBar.Controls.Item(1).OnAction

End Sub

I took over the support of Word macros done by other people and they were
heavy on the toolbars. The problem I'm having is I have all these toolbars I
need to debug and I can't figure out which sub they call. I actually tried
using this code

MsgBox Me.CommandBars("test1").Controls("test2").OnAction

but it returns an empty string. I can set it like and return what I set but
that doesn't help me.