[Ribbon]打开文件时激活指定的选项卡

wpxxsyzx

方法一：
使用IRibbonUI对象的ActivateTab
XML代码：
<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui">
  <ribbon>
    <tabs>
      <tab id="MyTab" label="我的选项卡" >
        <group id="Group1" label="我的组">
          <button id="MyButton" label="我的按钮" size="large" imageMso="HappyFace"/>
        </group>
      </tab>
    </tabs>
  </ribbon>
</customUI>
VBA代码：
Public objRib As IRibbonUI
Sub RibbonOnLoaded(ribbon As IRibbonUI)
    Set objRib = ribbon
    objRib.ActivateTab "MyTab"
'    objRib.ActivateTabMso "TabInsert"  
End Sub
RibbonOnLoaded过程是XML代码中customUI元素的 onLoad属性的回调过程，返回一个代表功能区的IRibbonUI对象，该过程在应用程序加载功能区时运行，将返回的IRibbonUI对象赋值给变量objRib就可以在VBA中引用功能区了。
IRibbonUI对象的ActivateTab方法可以激活自定义的选项卡，ActivateTabMso方法可以激活指定的内置选项卡，两者语法相同：
对象表达式.ActivateTab（ControlID As String）
参数ControlID用来指定要激活的选项卡，是一个字符串，必须和XML中自定义选项卡的ID属性一致，ActivateTabMso方法的参数ControlID必须是内置选项卡的标识符。

方法二：
使用sendkeys配合加速键
Public objRib As IRibbonUI
'Callback for customUI.onLoad
Sub RibbonOnLoaded(ribbon As IRibbonUI)
   Application.SendKeys "%Y{RETURN}"
'   Application.SendKeys "%N{RETURN}"
End Sub
按下ALT键查看各个选项卡的加速键，把代码中的N，Y换成其他加速键就会激活对应的选项卡

VBA万岁

附件1打开好像没有反应（相应的选项卡没有被打开啊）？

dljyh2009

老是没有弄明白，XML代码放在哪，怎么打开附件，里面没有xlm中的代码，也可以运行

山菊花

VBA万岁 发表于 2014-5-24 15:13
附件1打开好像没有反应（相应的选项卡没有被打开啊）？

附件1自动打开了自定义选项卡“我的选项卡”，没发现问题。

闻启学

dljyh2009 发表于 2014-5-24 17:03
老是没有弄明白，XML代码放在哪，怎么打开附件，里面没有xlm中的代码，也可以运行

xml 这个代码

用xlsm 文件转换一下 将扩展名改为 zip 文件 解压后 新建一个 customUI。xlm 文件放进去

frefs

留个记号！！！

张雄友

难度太大，看不懂。

yfzdb

学习自定义界面的好资料

xd3210

版主，excel2007是不是不支持第一种方法？
第二种方法好象会影响“NUMLOCK"的状态。请版主指点！
谢谢！

1615720058

是否可以根据判断工作簿是否有没有打开，如果没有打开，使按钮的变灰色不可用呢？这个功能应该更实用