Excel365：“显示快速访问工具栏”的RibbonX命令

Question

我的Excel365VBA应用程序通过RibbonX向QAT添加撤消和重做：

​

<qat>
     <documentControls> 
         <control idMso="Undo" imageMso="Undo"/> 
         <control idMso="Redo" imageMso="Redo"/> 
     </documentControls>
 </qat>

​

微软最近调整了丝带界面：

​

​

如何在XLM或VBA中授予设置“显示快速访问工具栏”？

Answer 1

丝带和QAT设置存储在officeUI-文件和officeSL-文件中的以下文件夹；

C:\Users\%username%\AppData\Local\Microsoft\Office

officeUI-文件用于存储经典丝带的自定义，而officeSL-文件用于存储Office 365单行带的自定义。

因此，您的代码可以检查是否将任何UI自定义保存到上述文件夹。Ribbon没有提供任何API来检查这一点。

此外，您可以尝试使用CommandBars.GetVisibleMso方法，如果由idMso参数标识的控件可见，该方法将返回idMso。

但我建议在彩带上放置一个自定义UI，而不是QAT。