为Access2007创建一个应用程序级的自定义Ribbon——Office2007 用户界面(UI)

核心提示： 注意：也可以从USysRibbons表中使用一个功能区，为指定的窗体或报表提供UI，为Access2007创建一个应用程序级的自定义Ribbon——Office2007 用户界面(UI)(3)，要进行这样的操作，在设计或布局模式下打开窗体或报表，虽然该方法不会返回值，但必须是一个函数，然后设置窗

注意：也可以从USysRibbons表中使用一个功能区，为指定的窗体或报表提供UI。要进行这样的操作，在设计或布局模式下打开窗体或报表，然后设置窗体的RibbonName属性为想要使用的Ribbon的名称。在设置该属性之前，必须选择窗体自身，而不是窗体中的任何控件或选择。

(二) 在运行时装载定制

如果想在运行时装载静态的定制，则将这些定制存储在USysRibbons表中，并且在需要时设置窗体或报表的RibbonName属性。但是，如果需要创建动态的定制，则调用Application.LoadCustomUI方法。下面的示例创建一个Ribbon定制，显示应用程序中每个窗体的按钮，处理每个按钮的onAction回调来装载请求的窗体。

创建动态的Ribbon定制

1、将前面内容中所使用的数据库装载到Access 2007中。如果数据库中只有一个窗体，则创建一个新窗体并在每个窗体中添加一至两个控件。

2、在“创建”选项卡中的“其他”组中，单击“宏”按钮的下拉列表，然后单击“模块”。

3、在VBE中的菜单“视图”中，单击“属性窗口”。

4、在“属性”窗口中，将名称(Name)属性框中模块的名称改为RibbonLoader。

5、在代码窗口中，输入下面的代码。虽然该方法不会返回值，但必须是一个函数，否则不能够从Access宏中调用。

Function CreateFormButtons()

Dim xml As String

xml = _

“<customUI xmlns=”"http://schemas.microsoft.com/” & _

“office/2006/01/customui”">” & vbCrLf & _

“　<ribbon startFromScratch=”"false”">” & vbCrLf & _