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

核心提示： ‘ 则会失败Application.LoadCustomUI “FormNames”, xmlEnd Function当运行该段代码时，如果应用程序中包含有名为Form1和Form2的两个窗体，为Access2007创建一个应用程序级的自定义Ribbon——O

‘ 则会失败

Application.LoadCustomUI “FormNames”, xml

End Function

当运行该段代码时，如果应用程序中包含有名为Form1和Form2的两个窗体，则会创建像下面的XML的标记。

<customUI xmlns=”http://schemas.microsoft.com/office/2006/01/customui“>

<ribbon startFromScratch=”false”>

<tabs>

<tab id=”DemoTab” label=”LoadCustomUI Demo”>

<group id=”loadFormsGroup” label=”Load Forms”>

<button id=”loadForm2Button” label=”Load Form2″ onAction=”HandleOnAction” tag=”Form2″/>

<button id=”loadForm1Button” label=”Load Form1″ onAction=”HandleOnAction” tag=”Form1″/>

</group>

</tab>

</tabs>

</ribbon>

</customUI>

这段标记创建了一个新的LoadCustomUI Demo选项卡，包含有一个“Load Forms”组。在该组内，Ribbon为应用程序中的每个窗体(Form1和Form2)显示一个按钮，并指定每个按钮在单击时应该调用的HandleOnAction回调过程。此外，该标记为每个按钮设置Tag属性，以便于代码应该打开的包含的Access窗体的名称。

6、添加下面的代码到相同的模块中。该过程提供回调行为，打开所选窗体并设置其RibbonName属性到FormNames Ribbon定制。

Public Sub HandleOnAction(control As IRibbonControl)