Begin a group in a custom commandbar

[Dale Fye]

I've got the following code in an application, and need to know how to begin
a group (put a dividing line between it and the previous menu item) at the
Gap Synthesis menu item. I know how to do this with commandbars that are
built using the View -> Toolbars -> Customize dialog, but not how to do it in
code.

Set cbr = CommandBars.Add("MyMenu", BarPopup, , True)

With cbr

Set cbrButton = cbr.Controls.Add(ControlButton, , , , True)
With cbrButton
.Caption = "&DoSomething"
.Tag = "DoSomething"
.OnAction = "=fnDoSomething()"
End With

Set cbrButton = cbr.Controls.Add(ControlButton, , , , True)
With cbrButton
.Caption = "&Gap Synthesis"
.Tag = "Gap Synthesis"
.OnAction = "=fnGapSynthesis"
End With

End With

Dale

 

[Graham Mandeno]

Hi Dale

BeginGroup is a boolean property of a CommandBarControl.

Just add:
.BeginGroup = True
to your With block for the "Gap Synthesis" button.

 

[Dale Fye]

Thanks, Graham.

I could swear I tried that, and don't know why intellisense was not
providing me with the options for the cbr object.

Dale

Hi Dale

BeginGroup is a boolean property of a CommandBarControl.

Just add:
.BeginGroup = True
to your With block for the "Gap Synthesis" button.
--
Good Luck

Graham Mandeno [Access MVP]
Auckland, New Zealand

I've got the following code in an application, and need to know how to
begin
a group (put a dividing line between it and the previous menu item) at
the
Gap Synthesis menu item. I know how to do this with commandbars that are
built using the View -> Toolbars -> Customize dialog, but not how to do
it in
code.

Set cbr = CommandBars.Add("MyMenu", BarPopup, , True)

With cbr

Set cbrButton = cbr.Controls.Add(ControlButton, , , , True)
With cbrButton
.Caption = "&DoSomething"
.Tag = "DoSomething"
.OnAction = "=fnDoSomething()"
End With

Set cbrButton = cbr.Controls.Add(ControlButton, , , , True)
With cbrButton
.Caption = "&Gap Synthesis"
.Tag = "Gap Synthesis"
.OnAction = "=fnGapSynthesis"
End With

End With

Dale