How to use VBA to add a macro to a toolbar in Word

[Frank]

I want to use VBA to add a macro to a toolbar in Word.

When I record a macro doing this manually, it just leaves this VBA-command:

CommandBars("Menu Bar").Controls.Add Type:=msoControlButton, Before:= 19

without any reference to the name of the selected macro.

How do I write the VBA-code to add a given macro (say Normal.Modul1.Mymacro)
to the Standard toolbar (or a custom one) and editing the name property to
Mymacro?

Thanks, Frank

 

[Jonathan West]

Hi Frank,

I want to use VBA to add a macro to a toolbar in Word.

When I record a macro doing this manually, it just leaves this
VBA-command:

CommandBars("Menu Bar").Controls.Add Type:=msoControlButton, Before:= 19

without any reference to the name of the selected macro.

How do I write the VBA-code to add a given macro (say
Normal.Modul1.Mymacro)
to the Standard toolbar (or a custom one) and editing the name property to
Mymacro?

After adding it, you set the OnAction property of the button to the name of
the macro, like this

Dim oButton as CommandBarControl
Set oButton = CommandBars("Menu Bar").Controls.Add( _
Type:=msoControlButton, Before:= 19)
oButton.OnAction = "Modul1.Mymacro"

 

[Frank]

Thanks for the solution.

However, I could not find any usable "text only" property on the command bar
control to make it visible.

How is this done in VBA?


Frank

 

[Jonathan West]

Thanks for the solution.

However, I could not find any usable "text only" property on the command
bar
control to make it visible.

How is this done in VBA?

You set the Caption property to determine the caption text, and you set the
Style property to msoButtonCaption in order to have the button display as a
text button.

Dim oButton as CommandBarControl
Set oButton = CommandBars("Menu Bar").Controls.Add( _
Type:=msoControlButton, Before:= 19)
oButton.OnAction = "Modul1.Mymacro"
oButton.Caption = "My macro"
oButton.Style = msoButtonCaption