используйте свойство .FaceID
.Если вы хотите узнать, какой идентификатор использовать, загрузите надстройку FaceID Browser для Excel.Пример:
Set MenuItem = NewMenu.Controls.Add _
(Type:=msoControlButton)
With MenuItem
.Caption = "Save XML Data"
.FaceId = 270
.OnAction = "AskExportXml"
.Enabled = True
End With