在2010中添加自定义宏按钮

wangyi0309

在学习罗国发和周庆麟的《别怕，Excel VBA其实很简单》由于书中使用的是2003版，当我学到13页，1.3.3 将宏指定给常用工具栏按钮  时遇到了麻烦。上网查了半天也未找到答案，现将摸索结果与大家分享。

感觉2007应该和2010的大概位置一样，只是2010不在使用office按钮，而改为“文件选项卡”。

1、写好或录制好你要的“宏”

2、择文件选项卡→选项→自定义功能区

3、想好你自己打算将“自定义按钮”所放置的选项卡，我选择“开始选项卡”。

4、在“自定义功能区”选择→主选项卡→单击开始前面的“+”将其打开

5、选择右下位置的“新建组”，这时会在“编辑”的下面出现一个“新建组（自定义）”选项

6、选中“新建组（自定义）”选项

7、在左侧“从下列位置选择命令”的下拉菜单中选择“宏”

8、在已经列出的所有“宏”中选择你要定义按钮的那个，单击添加。

好了

hwc2ycy

03添加的方法还是有效的。

[已解决]为什么我这个自定义菜单的字体显示不出来？
http://www.excelpx.com/thread-293362-1-1.html

演示代码：

1. Sub AddCommandbar()
   
2.     Dim i As Byte
   
3.     'For i = 0 To 6
   
4.     On Error Resume Next
   
5.     Application.CommandBars("hwc2ycy").Delete
   
6.     Application.CommandBars.Add "hwc2ycy", 1, , True
   
7. 
   
8.     Application.CommandBars("hwc2ycy").Visible = True
   
9.     With Application.CommandBars("hwc2ycy").Controls
   
10.         With .Add(1, , , , True)
    
11.             .Caption = "button1"
    
12.             .Visible = True
    
13.             .Style = msoButtonIconAndCaption
    
14.             .FaceId = 11
    
15.             .OnAction = "test"
    
16.         End With
    
17.         With .Add(1, , , , True)
    
18.             .Caption = "button2"
    
19.             .Visible = True
    
20.             .Style = msoButtonIconAndCaption
    
21.             .FaceId = 22
    
22.             .OnAction = "test"
    
23.         End With
    
24.         With .Add(1, , , , True)
    
25.             .Caption = "button3"
    
26.             .Visible = True
    
27.             .Style = msoButtonIconAndCaption
    
28.             .FaceId = 44
    
29.             .OnAction = "test"
    
30.         End With
    
31.     End With
    
32. End Sub
    
33. 
    
34. Sub test()
    
35.     MsgBox "test1"
    
36. End Sub

复制代码

hwc2ycy

在03里添加到工具栏里自定义菜单，会在10的功能区里有个“加载项”选项卡里显示出来的。

l564469173

正想知道该怎么弄呢，谢啦！