Face ID on main menu?

[abdulsalam.abdullah@gmail.com]

Hi,

I have the following code:

Set myCustMenu = cbWSMenuBar.Controls.Add(Type:=msoControlButton,
before:=iHelpIndex, Temporary:=True)
With myCustMenu
.Style = msoButtonCaption
.Caption = "Test"
.FaceId = 247
.OnAction = "TryME"
End With

The menu bar is not displaying the face ID. Is it not possible to have
a face ID n a menubar button on the main menu?

if i have a sub menu control button on a popup menu it works.

any idea?

thanks

[Greg Wilson]

Change msoButtonCaption to msoButtonIconAndCaption or to msoButtonIcon if you
only want to display the icon. Alternatively, don't specify the Style as it
defaults to msoButtonIcon. This worked for me:-

Sub Test()
Dim iHelpIndex As Integer
Dim myCustMenu As CommandBarButton
With Application.CommandBars(1)
iHelpIndex = .Controls("Help").Index
Set myCustMenu = .Controls.Add(Type:=msoControlButton, _
before:=iHelpIndex, Temporary:=True)
End With
With myCustMenu
.Style = msoButtonIconAndCaption 'msoButtonCaption
.Caption = "Test"
.FaceId = 247
.OnAction = "TryME"
End With
End Sub

Sub TryMe()
MsgBox "Try me !!!"
End Sub

Regards,
Greg

"abdulsalam.abdullah@gmail.com" wrote:

> Hi,
>
> I have the following code:
>
> Set myCustMenu = cbWSMenuBar.Controls.Add(Type:=msoControlButton,
> before:=iHelpIndex, Temporary:=True)
> With myCustMenu
> .Style = msoButtonCaption
> .Caption = "Test"
> .FaceId = 247
> .OnAction = "TryME"
> End With
>
> The menu bar is not displaying the face ID. Is it not possible to have
> a face ID n a menubar button on the main menu?
>
> if i have a sub menu control button on a popup menu it works.
>
> any idea?
>
> thanks
>
>

[abdulsalam.abdullah@gmail.com]

It works fine now.

Thanks