如何用VBA在WORD中创建命令栏（即菜单项）并在每个菜单项上加上图标？

你的代码是正确的,但是如果你要显示图标,你需要把所有ctrl1.style = msoButtonCaption 这一句改为 ctrl1.Style = msoButtonIconAndCaption,这样就能够一起显示图标和文字了,我试过是可以的,希望能帮到你

1、直接在vb的相关窗口中，选择打开标准EXE。

2、这个时候如果没问题，就继续通过鼠标右键点击菜单编辑器进行跳转。

3、下一步d出新的对话框，需要根据实际情况确定加入的子菜单。

4、这样一来会看到图示的结果，即可达到目的了。

---