RunMacro2003

标签：XML 工具栏 自定义 Excel RunMacro2003 COM

这是一款基于XML数据生成Excel / Word / PPT 2003 工具栏界面的COM加载项。

在Excel 2003的COM 加载项勾选“RunMacro2003”，就可以看到自定义工具栏。

示例XML内容如下：

<CommandBars>
    <CommandBar Name="Worksheet Menu Bar">
        <!--内置菜单栏-->
        <CommandBarPopup Caption="中国">
            <CommandBarButton BeginGroup="True" Caption="北京市" FaceId="1" OnAction="OA" Style="3"/>
            <CommandBarButton BeginGroup="True" Caption="天津市" FaceId="2" OnAction="OA" Style="3"/>
            <CommandBarButton BeginGroup="True" Caption="上海市" FaceId="3" OnAction="OA" Style="3"/>
            <CommandBarPopup Caption="辽宁省">
                <CommandBarButton BeginGroup="True" Caption="沈阳市" FaceId="4" OnAction="OA" Style="3"/>
                <CommandBarButton BeginGroup="True" Caption="大连市" FaceId="5" OnAction="OA" Style="3"/>
            </CommandBarPopup>
        </CommandBarPopup>
        <CommandBarButton BeginGroup="True" Caption="日本" FaceId="6" OnAction="OA" Style="3"/>
    </CommandBar>
    <CommandBar Name="Cell">
        <CommandBarPopup Caption="植物">
            <CommandBarButton BeginGroup="True" Caption="杨树" FaceId="7" OnAction="OA" Style="3"/>
            <CommandBarButton BeginGroup="True" Caption="马铃薯" FaceId="8" OnAction="OA" Style="3"/>
            <CommandBarPopup Caption="水果">
                <CommandBarButton BeginGroup="True" Caption="火龙果" FaceId="9" OnAction="OA" Style="3"/>
                <CommandBarButton BeginGroup="True" Caption="哈密瓜" FaceId="10" OnAction="OA" Style="3"/>
            </CommandBarPopup>
        </CommandBarPopup>
    </CommandBar>
    <CommandBar Name="体育项目" Position="1" Visible="True">
        <CommandBarPopup BeginGroup="True" Caption="球类">
            <CommandBarButton BeginGroup="True" Caption="乒乓球" FaceId="11" OnAction="OA" Style="3"/>
            <CommandBarButton BeginGroup="False" Caption="足球" FaceId="12" OnAction="OA" Style="3"/>
            <CommandBarPopup BeginGroup="True" Caption="篮球">
                <CommandBarButton BeginGroup="True" Caption="男篮" FaceId="13" OnAction="OA" Style="3"/>
                <CommandBarButton BeginGroup="True" Caption="女篮" FaceId="14" OnAction="OA" Style="3"/>
            </CommandBarPopup>
        </CommandBarPopup>
        <CommandBarButton BeginGroup="True" Caption="棋类" FaceId="27" OnAction="OA" Style="3"/>
    </CommandBar>
</CommandBars>
<!--Position="1" Office.MsoBarPosition.msoBarTop-->
<!--Style="3" Office.MsoButtonStyle.msoButtonIconAndCaption-->

 

可以看到 主菜单右侧 有中国 日本 菜单项

 

新建的自定义工具栏

单元格右键菜单 显示一些水果：

 

标签：XML,工具栏,自定义,Excel,RunMacro2003,COM
From： https://www.cnblogs.com/ryueifu-VBA/p/18671335