如何在excel中添加图标到自定义菜单 - vba

Question

我创建了一些引用"Custom Menu visible to one document in Excel"的自定义菜单。现在我想为每个菜单项添加一些图标。这可能是系统图标或其他一些。请提供一些解决方案。

Answer 1

使用.FaceID属性。如果您想知道要使用的ID，请下载适用于Excel的FaceID浏览器插件。例如：

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