Excel怎么制作动态菜单？_惠州计算机办公软件知识

　　创建一个动态菜单控件不是一项简单的工作，但在使用VBA动态修改Ribbon方面，该控件可能提供最大的灵活性。接下来惠州北大青鸟学术部老师教你Excel怎么制作动态菜单。

　　创建了一个简单的动态菜单控件演示，为Excel工作簿中的三个工作表中的每一个显示不同的菜单。展示了激活工作表sheet1时出现的菜单。当激活一个工作表时，VBA过程发送为工作表指定的XML代码。在本示例中，直接存储XML代码在工作表里，使之更易阅读。此外，XML标志可以作为字符串变量存储在代码中。

　　创建新选项卡、新组和动态菜单控件的RibbonX代码如下：

<customUI xmlns=http://schemas.microsoft.com/office/2006/01/customui“
onLoad=ribbonLoaded>
　<ribbon>
　<tabs>
　　<tab id=CustomTab label=Dynamic>
　　　　<group id=group1″ label=Dynamic Menu Demo>
　　　　　<dynamicMenu id=DynamicMenu
　　　　　　　getContent=dynamicMenuContent
　　　　　　　imageMso=RegionLayoutMenu
　　　　　　　size = “large
　　　　　　　label=Sheet-Specific Menu/>
　　　　　</group>
　　　</tab>
　　</tabs>
　　</ribbon>
</customUI>
本示例需要无论何时用户激活新工作表时，都使Ribbon无效的一种方式。这里使用了先前显示分页符的示例相同的方法。声明了一个IRibbonUI类型的Public变量MyRibbon，无论何时激活一个新工作表，都将在Workbook_SheetActivate过程中调用UpdateDynamicRibbon过程：

Sub UpdateDynamicRibbon()
‘　 Invalidate the Ribbon to force a call to dynamicMenuContent
　　On Error Resume Next
　　MyRibbon.Invalidate
　　If Err.Number <> 0 Then
　　　　MsgBox “Lost the Ribbon object. Save and reload.
　　End If
End Sub

　　UpdateDynamicRibbon过程使MyRibbon对象无效，强制对名为dynamicMenuContent(一个通过RibbonX代码里getContent参数引用的过程)的VBA回调过程的调用。注意错误处理代码。一些对VBA代码的编辑销毁了MyRibbon对象，而该对象是在打开工作簿时创建的。试图使不存在的对象无效将会导致错误，消息框将通知用户必须保存工作簿后再重新打开。而重新打开该工作簿是重新创建MyRibbon对象的唯一方式。

　　dynamicMenuContent过程的代码如下。该过程遍历活动工作表A列中的单元格，读取XML代码，将其保存在名为XMLcode的变量中。当附加了所有的XML后，传递给returnedVal参数，使动态菜单控件有新的代码，因此显示一组不同的菜单选项。

Sub dynamicMenuContent(control As IRibbonControl, _
　 ByRef returnedVal)
　　Dim r As Long
　　Dim XMLcode As String
‘　 Read the XML markup from the active sheet
　　For r = 1 To Application.CountA(Range(A:A))
　　　　XMLcode = XMLcode & ActiveSheet.Cells(r, 1) & “
　　Next r
　　returnedVal = XMLcode
End Sub

       相信通过上面老师的解答，大家应该知道Excel怎么制作动态菜单了吧！想了解更多关于办公软件的知识，可以来惠州北大青鸟新方舟校区详细了解。

办公软件

标签：惠州北大青鸟北大青鸟惠州办公软件培训惠州办公软件培训学校惠州计算机办公软件基础惠州计算机办公基础惠州IT培训惠州计算机办公软件知识惠州计算机办公基础知识惠州计算机学校办公软件