《RibbonX：自定义Office 2007功能区》学习心得

frefs

做个记号！！！

blackfire

多谢版主啊，练习1中有一道题，正好是我找了好几天的答案，万分感谢啊！！

hehex

mark 一下，准备学习。

yfzdb

自定义界面的好资料，赞

excel002009

哎，VBA要学习的东西太多了，学起来太慢，时间又有限。希望我能坚持多看点大师的杰作。

yzanliang@sina.

学习一下。谢谢楼主！

keelung

版主：先赞一个。
不过，我有个问题：我自己用VB做了一个com加载宏的工具，VB中能否也能实现你这个自定义选项卡的功能呢？选项卡中的按钮如何调用vb中的过程呢？
希望能得到版主的帮助。谢谢！

山菊花

keelung 发表于 2014-10-16 15:46
版主：先赞一个。
不过，我有个问题：我自己用VB做了一个com加载宏的工具，VB中能否也能实现你这个自定义选 ...

我没试过。其它过程怎样调用，选项卡按钮就怎样调用，应该没什么两样。

keelung

山菊花 发表于 2014-10-16 16:23
我没试过。其它过程怎样调用，选项卡按钮就怎样调用，应该没什么两样。

版主：再问一个问题，我在加载好自定义的选项卡后，如何在xlApp.ActiveWorkbook Is Nothing状态下（即没有如何sheet打开的情况下），使得选项卡中的相关菜单变为灰色？

谢谢！

山菊花

keelung 发表于 2014-10-20 15:59
版主：再问一个问题，我在加载好自定义的选项卡后，如何在xlApp.ActiveWorkbook Is Nothing状态下（即没有 ...

1、在XML代码中定义相关属性并创建回调：

XML代码：
<button id="Anniu"
label="我的按钮"
getEnabled="Anniu_GetEnabled"

回调：
Sub Anniu_GetEnabled(control As IRibbonControl, ByRef returnedVal)
    returnedVal = Workbooks.Count > 0
End Sub


2、在类模块中利用工作簿事件程序更新控件。

Private Sub xlapp_WorkbookActivate(ByVal Wb As Workbook)
    On Error Resume Next
    If Wb.Name = ThisWorkbook.Name Then Exit Sub
    Rib.InvalidateControl "Anniu"
End Sub
Private Sub xlapp_WorkbookDeactivate(ByVal Wb As Workbook)
    On Error Resume Next
    If Wb.Name = ThisWorkbook.Name Then Exit Sub
    Rib.InvalidateControl "Anniu"
End Sub