How to add icons to custom menu in excel - vba

I have created some custom menu referring "Custom Menu visible to one document in Excel". Now I want to add some icon开发者_StackOverflow社区s to each menu item. Either that may be system icons or some others. Please provide some solution.

use the .FaceID property. If you want to know what id to use, then download a FaceID Browser addin for excel. Example:

Set MenuItem = NewMenu.Controls.Add _
  (Type:=msoControlButton)
With MenuItem
    .Caption = "Save XML Data"
    .FaceId = 270
    .OnAction = "AskExportXml"
    .Enabled = True
End With