Face ID on main menu?

  • Thread starter Thread starter abdulsalam.abdullah
  • Start date Start date
A

abdulsalam.abdullah

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
 
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
 
Back
Top