VBA code for custom menubar

Hi everybody,
I'm creating custom toolbar with some buttons and also a menubutton , I know
how to create regular button but I can't find a way to add a menubuton using
VBA code ( I can't find its name in VBA references)

With objCommandBar.Controls

Set objCommandButton = .Add(msoControlButton)<--- what should I use
here
...
for menu button
--
Best regards,
Edward

gordon(dot)bentleymix(at)gmail(dot)com>
Tue Aug 12 21:10:31 PDT 2008

Edward,

I think maybe what you're looking for is msoControlPopup. It seems to
display a button that looks like the "menu" type buttons on some of the
standard toolbars in that it has the little "down arrow" to the right of the
caption. However, when I query the .Type property of this button, it returns
a value of 10; this doesn't appear to be the same as the .Type property (13
or 14) of the similar buttons on a standard toolbar. When I fiddled with my
code to use a numeric constant, it works with 10 but fails with 13 or 14.
Other numeric constants, such as 1 or 4, do work, but 20, which appears to be
very similar to 4, does not. Curiouser and curiouser...

In addition, I cannot figure out how to add "menu items" to the button, so I
cannot be sure that this really is the right type of button. However, at
least it's a start, and maybe one of the other bright sparks here can give
you more direction.
--
Cheers!
Gordon

Uninvited email contact will be marked as SPAM and ignored. Please post all
follow-ups to the newsgroup.


"Edward" wrote:

> Hi everybody,
> I'm creating custom toolbar with some buttons and also a menubutton , I know
> how to create regular button but I can't find a way to add a menubuton using
> VBA code ( I can't find its name in VBA references)
>
> With objCommandBar.Controls
>
> Set objCommandButton = .Add(msoControlButton)<--- what should I use
> here
> ...
> for menu button
> --
> Best regards,
> Edward

Edward
Wed Aug 13 14:49:01 PDT 2008

Thanks. After I posted my question i did some research and I did almost the
same tests that you did , yes the correct name is msoControlPopup and I also
saw the same inconsistencies that you mentioned
adding items to that popup menu is easy

Set myCPup = myCB.Controls.Add(Type:=msoControlPopup)

Set myCBtn = myCPup.Controls.Add(Type:=msoControlButton)
With myCBtn
.Caption = "Blue"
.Style = msoButtonIconAndCaption
.Picture = frmImage.imgDarkBlue.Picture

End With

--
Best regards,
Edward


"Gordon Bentley-Mix" wrote:

> Edward,
>
> I think maybe what you're looking for is msoControlPopup. It seems to
> display a button that looks like the "menu" type buttons on some of the
> standard toolbars in that it has the little "down arrow" to the right of the
> caption. However, when I query the .Type property of this button, it returns
> a value of 10; this doesn't appear to be the same as the .Type property (13
> or 14) of the similar buttons on a standard toolbar. When I fiddled with my
> code to use a numeric constant, it works with 10 but fails with 13 or 14.
> Other numeric constants, such as 1 or 4, do work, but 20, which appears to be
> very similar to 4, does not. Curiouser and curiouser...
>
> In addition, I cannot figure out how to add "menu items" to the button, so I
> cannot be sure that this really is the right type of button. However, at
> least it's a start, and maybe one of the other bright sparks here can give
> you more direction.
> --
> Cheers!
> Gordon
>
> Uninvited email contact will be marked as SPAM and ignored. Please post all
> follow-ups to the newsgroup.
>
>
> "Edward" wrote:
>
> > Hi everybody,
> > I'm creating custom toolbar with some buttons and also a menubutton , I know
> > how to create regular button but I can't find a way to add a menubuton using
> > VBA code ( I can't find its name in VBA references)
> >
> > With objCommandBar.Controls
> >
> > Set objCommandButton = .Add(msoControlButton)<--- what should I use
> > here
> > ...
> > for menu button
> > --
> > Best regards,
> > Edward