[求助]：我有个比较难的问题

byyw

我写了一段vba程序,是实现从数据库服务器取数后,在本地计算机excel中按一定格式显示和打印的功能.
我现在的做法是要用户点一个按钮.这种方法本来没有问题,可是用户要打印的时候不希望打印按钮.因此我想做一个宏,当用户在他的机器上加载这个宏时,在excel的菜单栏按我的要求增加一个菜单,通过这个菜单来实现我要的功能,这样因为没有按钮,打印的时候就不会看到按钮了.
不知道高手们有没有办法,先谢谢了.

yi.gao

简单举个例子：
SUB AUTO_OPEN()
     ;添加主菜单
     MenuBars(xlWorksheet).Menus("主菜单").MenuItems _
    ；添加下级菜单名称
        .Add Caption:="下级菜单", _  
    ；要执行的过程或宏名称
        OnAction:="要执行的过程或宏名称"
       FirstConnected = 0
End Sub

Sub Auto_Close()
    On Error Resume Next
    Set FlxObj = Nothing
    ；删除菜单
    MenuBars(xlWorksheet).Menus("主菜单").Delete
End Sub

时间相隔已久，不知正确与否，大致思路是这样的。

byyw

谢谢,我先试试

yi.gao

稍微想起来一些，把内容改改：
Sub Auto_Open()
    MenuBars(xlWorksheet).Menus.Add Caption:="我的菜单(&M)"
       MenuBars(xlWorksheet).Menus("我的菜单").MenuItems _
        .Add Caption:="我的子菜单"
End Sub
auto open可以实现在打开文件时自动执行，如果放在默认模板文件中可以在打开excel时自动执行。菜单需要执行的宏用onaction添加。

byyw

谢谢，你的程序在执行的时候是会出现菜单。但是，我把它存为可加载宏（.xla）后，再打开一个新的空白excel文件，通过工具菜单加载这个宏，发现菜单没有直接出来，不知道怎么搞。还请你再帮帮忙。我希望把它做成可加载宏，只要用户加载这个宏，菜单就自动出现。

yang19800808

这么复杂，直接在工具栏里添加个按钮不就完了

byyw

可以加工具栏按钮，可是点击工具栏按钮的代码和点击普通按钮是一样的写法吗

xuehuchen

很难的问题啊，怎么解决啊，有答案么？