[已解决]如何在菜单栏增加按钮？急。。。

qkhhlmy

如何能现实在EXCEl 工作簿的菜单栏里增加一个按钮？
请各班帮忙解决。。。
增加菜单栏加载宏.rar (1.6 KB, 下载次数: 19)

2011-11-2 19:29 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

爱疯

2011-11-2 22:30

1. 
   
2. Sub Menu_Create()    '创建菜单
   
3.     Dim myMnu As CommandBarPopup
   
4.     Dim myButton As CommandBarButton
   
5.     '临时增加一个菜单myMnu
   
6.     Set myMnu = CommandBars("Worksheet menu bar").Controls. _
   
7.                 Add(Type:=msoControlPopup, temporary:=True)
   
8.     With myMnu
   
9.         .Caption = "命令"
   
10.         '增加一个按钮
    
11.         Set myButton = .Controls.Add(msoControlButton)
    
12.         With myButton
    
13.             .Caption = "执行复制"
    
14.             .OnAction = "test"
    
15.             .FaceId = 19
    
16.         End With
    
17.     End With
    
18. End Sub
    
19. 
    
20. Sub test()
    
21.     MsgBox "把这个替换为你的程序"
    
22. End Sub

复制代码

Book1.rar (6.88 KB, 下载次数: 14)

2011-11-2 22:30 上传

点击文件名下载附件
这样吗

跳转到最佳答案楼层

xcnclzy

工具---自定义---拖上去

BAIXINGR

楼上正确           

mqr66

在最后面指定你自己做的宏即可。

周小艳

studyexcel

回复 周小艳 的帖子

{:141:}{:141:}{:141:}{:141:}{:141:}{:141:}

qkhhlmy

回复 xcnclzy 的帖子

拉上去，新建个工作表也都会有。。

qkhhlmy

回复 mqr66 的帖子

但是我新建工作表，打开也会有这个“命令”按钮。我想只在想要建立的工作有这个按钮就行了，其它工作不会有。。

爱疯

1. 
   
2. Sub Menu_Create()    '创建菜单
   
3.     Dim myMnu As CommandBarPopup
   
4.     Dim myButton As CommandBarButton
   
5.     '临时增加一个菜单myMnu
   
6.     Set myMnu = CommandBars("Worksheet menu bar").Controls. _
   
7.                 Add(Type:=msoControlPopup, temporary:=True)
   
8.     With myMnu
   
9.         .Caption = "命令"
   
10.         '增加一个按钮
    
11.         Set myButton = .Controls.Add(msoControlButton)
    
12.         With myButton
    
13.             .Caption = "执行复制"
    
14.             .OnAction = "test"
    
15.             .FaceId = 19
    
16.         End With
    
17.     End With
    
18. End Sub
    
19. 
    
20. Sub test()
    
21.     MsgBox "把这个替换为你的程序"
    
22. End Sub

复制代码

Book1.rar (6.88 KB, 下载次数: 14)

2011-11-2 22:30 上传

点击文件名下载附件
这样吗

qkhhlmy

回复 爱疯 的帖子

那为什么新建一个工作表，菜单栏也有这个“命令”按钮，选择后也会进入我指定的宏，请爱疯老师帮忙测试下。。。谢谢！~