[已解决]自定义菜单和工具栏

张雄友

Application.CommandBars("我的工具栏").Delete '这句不产生作用,每次都没有把前一次的工具删除的？？？？？？？？？？？

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2014-4-24 23:29

1. Sub 添加工具栏()
   
2.     On Error Resume Next
   
3.     Application.CommandBars("我的工具栏1").Delete    '这句不产生作用,每次都没有把前一次的工具删除的？？？？？？？？？？？
   
4.     Application.CommandBars("我的工具栏2").Delete
   
5.     Application.CommandBars("我的工具栏3").Delete
   
6.     Dim 工具栏 As CommandBar, 命令按钮 As CommandBarControl, 子菜单 As CommandBarControl
   
7.     Dim m1 As Integer, myarray1 As Variant, myarray2 As Variant
   
8. 
   
9.     myarray1 = Array("数据库检查", "数据库检查", "数据库检查", "数据库检查", "数据库检查", "数据库检查", "数据库检查", "数据库检查", "数据库检查", "数据库检查")
   
10.     myarray2 = Array("263", "264", "265", "266", "267", "268", "269", "270", "271", "272")
    
11. 
    
12. 
    
13.     Set 工具栏 = Application.CommandBars.Add
    
14.     With 工具栏
    
15.         .Name = "我的工具栏1"
    
16.         .Position = msoBarTop
    
17.         .Visible = True
    
18.         For m1 = 1 To UBound(myarray1) + 1
    
19.             Set 命令按钮 = .Controls.Add
    
20.             With 命令按钮
    
21.                 .Caption = myarray1(m1 - 1)
    
22.                 .FaceId = myarray2(m1 - 1)
    
23.                 .OnAction = myarray1(m1 - 1)
    
24.                 .Style = msoButtonIconAndCaptionBelow
    
25.             End With
    
26.         Next
    
27.     End With
    
28. 
    
29.     myarray1 = Array("数据库检查", "数据库检查", "数据库检查", "数据库检查", "数据库检查", "数据库检查", "数据库检查", "数据库检查", "数据库检查", "数据库检查")
    
30.     myarray2 = Array("263", "264", "265", "266", "267", "268", "269", "270", "271", "272")
    
31. 
    
32. 
    
33.     Set 工具栏 = Application.CommandBars.Add
    
34.     With 工具栏
    
35.         .Name = "我的工具栏2"
    
36.         .Position = msoBarTop
    
37.         .Visible = True
    
38.         For m1 = 1 To UBound(myarray1) + 1
    
39.             Set 命令按钮 = .Controls.Add
    
40.             With 命令按钮
    
41.                 .Caption = myarray1(m1 - 1)
    
42.                 .FaceId = myarray2(m1 - 1)
    
43.                 .OnAction = myarray1(m1 - 1)
    
44.                 .Style = msoButtonIconAndCaptionBelow
    
45.             End With
    
46.         Next
    
47.     End With
    
48. 
    
49.     myarray1 = Array("数据库检查", "数据库检查", "数据库检查", "数据库检查", "数据库检查", "数据库检查", "数据库检查", "数据库检查", "数据库检查", "数据库检查")
    
50.     myarray2 = Array("263", "264", "265", "266", "267", "268", "269", "270", "271", "272")
    
51. 
    
52. 
    
53.     Set 工具栏 = Application.CommandBars.Add
    
54.     With 工具栏
    
55.         .Name = "我的工具栏3"
    
56.         .Position = msoBarTop
    
57.         .Visible = True
    
58.         For m1 = 1 To UBound(myarray1) + 1
    
59.             Set 命令按钮 = .Controls.Add
    
60.             With 命令按钮
    
61.                 .Caption = myarray1(m1 - 1)
    
62.                 .FaceId = myarray2(m1 - 1)
    
63.                 .OnAction = myarray1(m1 - 1)
    
64.                 .Style = msoButtonIconAndCaptionBelow
    
65.             End With
    
66.         Next
    
67.     End With
    
68. 
    
69. 
    
70.     Set 子菜单 = CommandBars("我的工具栏1").Controls.Add(Type:=msoControlPopup)    ', before:=4, temproray:=True)
    
71.     子菜单.Caption = "排序方式"
    
72.     myarray1 = Array("单条件排序", "多条件排序")
    
73.     myarray2 = Array("654", "541")
    
74.     With 子菜单
    
75.         For m1 = 1 To UBound(myarray1) + 1
    
76.             Set 命令按钮 = .Controls.Add
    
77.             With 命令按钮
    
78.                 .Caption = myarray1(m1 - 1)
    
79.                 .FaceId = myarray2(m1 - 1)
    
80.                 .OnAction = myarray1(m1 - 1)
    
81.             End With
    
82.         Next
    
83.     End With
    
84. 
    
85. 
    
86.     Set 子菜单1 = CommandBars("我的工具栏2").Controls.Add(Type:=msoControlPopup)
    
87.     子菜单1.Caption = "发送"
    
88.     myarray1 = Array("选择联系人", "添加联系人", "发送至桌面")
    
89.     myarray2 = Array("361", "362", "69")
    
90.     With 子菜单1
    
91.         For m1 = 1 To UBound(myarray1) + 1
    
92.             Set 命令按钮 = .Controls.Add
    
93.             With 命令按钮
    
94.                 .Caption = myarray1(m1 - 1)
    
95.                 .FaceId = myarray2(m1 - 1)
    
96.                 If m1 - 1 = 2 Then .BeginGroup = True
    
97.                 .OnAction = myarray1(m1 - 1)
    
98.             End With
    
99.         Next
    
100.     End With
     
101. 
     
102.     Set 命令按钮 = Nothing: Set 工具栏 = Nothing: Set 子菜单 = Nothing
     
103. End Sub

复制代码

跳转到最佳答案楼层

hwc2ycy

你后面再创建的名字不能再用我的工具栏，要么直接添加controls，重名了。
你把on error resume next注释后，就会发现.name设置已经出错了。

张雄友

hwc2ycy 发表于 2014-4-24 23:06
你后面再创建的名字不能再用我的工具栏，要么直接添加controls，重名了。
你把on error resume next注释后 ...

比如说？你后面再创建的名字不能再用我的工具栏

hwc2ycy

1. Sub demo2()
   
2.     Dim cb As CommandBar
   
3.     For Each cb In Application.CommandBars
   
4.         If Not cb.BuiltIn Then
   
5.             Debug.Print cb.Name
   
6.         End If
   
7.     Next
   
8. End Sub

复制代码

代码执行你看立即窗口打印的工具栏名称（非内置）

hwc2ycy

张雄友 发表于 2014-4-24 23:08
比如说？你后面再创建的名字不能再用我的工具栏

名字是从集合中返回某个指定对象的一个索引方式，如果有两个重名的，该返回哪一个。
工作表集合中就是如此，同一个工作簿中，没有两个工作表的名字是相同的吧。

张雄友

hwc2ycy 发表于 2014-4-24 23:09
代码执行你看立即窗口打印的工具栏名称（非内置）

这么深奥的看不懂，代码怎么修改才能让其运行，并将前一次生成的删除掉？？？

hwc2ycy

张雄友 发表于 2014-4-24 23:12
这么深奥的看不懂，代码怎么修改才能让其运行，并将前一次生成的删除掉？？？

3个你就1，2，3嘛，或者全在一个工具栏里，添加CONTROLS就成了。

张雄友

hwc2ycy 发表于 2014-4-24 23:14
3个你就1，2，3嘛，或者全在一个工具栏里，添加CONTROLS就成了。

搞了5个小时，头晕了。没头绪了。难道是：

  With 工具栏1
       .Name = "我的工具栏1"


  With 工具栏2
       .Name = "我的工具栏2"



  With 工具栏3
       .Name = "我的工具栏3"

hwc2ycy

张雄友 发表于 2014-4-24 23:16
搞了5个小时，头晕了。没头绪了。难道是：

  With 工具栏1

是的。

张雄友

hwc2ycy 发表于 2014-4-24 23:20
是的。

不行啊，无效的参数调用。

1. Sub 添加工具栏()
   
2. 'On Error Resume Next
   
3. Application.CommandBars("我的工具栏1").Delete '这句不产生作用,每次都没有把前一次的工具删除的？？？？？？？？？？？
   
4. Application.CommandBars("我的工具栏2").Delete '这句不产生作用,每次都没有把前一次的工具删除的？？？？？？？？？？？
   
5. Application.CommandBars("我的工具栏3").Delete '这句不产生作用,每次都没有把前一次的工具删除的？？？？？？？？？？？
   
6. 
   
7. Dim 工具栏 As CommandBar, 命令按钮 As CommandBarControl, 子菜单 As CommandBarControl
   
8. Dim m1 As Integer, myarray1 As Variant, myarray2 As Variant
   
9. 
   
10. myarray1 = Array("数据库检查", "数据库检查", "数据库检查", "数据库检查", "数据库检查", "数据库检查", "数据库检查", "数据库检查", "数据库检查", "数据库检查")
    
11. myarray2 = Array("263", "264", "265", "266", "267", "268", "269", "270", "271", "272")
    
12. 
    
13. 
    
14. Set 工具栏 = Application.CommandBars.Add
    
15.   With 工具栏1
    
16.        .Name = "我的工具栏1"
    
17.        .Position = msoBarTop
    
18.        .Visible = True
    
19.     For m1 = 1 To UBound(myarray1) + 1
    
20.      Set 命令按钮 = .Controls.Add
    
21.        With 命令按钮
    
22.          .Caption = myarray1(m1 - 1)
    
23.          .FaceId = myarray2(m1 - 1)
    
24.          .OnAction = myarray1(m1 - 1)
    
25.          .Style = msoButtonIconAndCaptionBelow
    
26.        End With
    
27.     Next
    
28. End With
    
29. 
    
30. myarray1 = Array("数据库检查", "数据库检查", "数据库检查", "数据库检查", "数据库检查", "数据库检查", "数据库检查", "数据库检查", "数据库检查", "数据库检查")
    
31. myarray2 = Array("263", "264", "265", "266", "267", "268", "269", "270", "271", "272")
    
32. 
    
33. 
    
34. Set 工具栏 = Application.CommandBars.Add
    
35.   With 工具栏2
    
36.        .Name = "我的工具栏2"
    
37.        .Position = msoBarTop
    
38.        .Visible = True
    
39.     For m1 = 1 To UBound(myarray1) + 1
    
40.      Set 命令按钮 = .Controls.Add
    
41.        With 命令按钮
    
42.          .Caption = myarray1(m1 - 1)
    
43.          .FaceId = myarray2(m1 - 1)
    
44.          .OnAction = myarray1(m1 - 1)
    
45.          .Style = msoButtonIconAndCaptionBelow
    
46.        End With
    
47.     Next
    
48. End With
    
49. 
    
50. myarray1 = Array("数据库检查", "数据库检查", "数据库检查", "数据库检查", "数据库检查", "数据库检查", "数据库检查", "数据库检查", "数据库检查", "数据库检查")
    
51. myarray2 = Array("263", "264", "265", "266", "267", "268", "269", "270", "271", "272")
    
52. 
    
53. 
    
54. Set 工具栏 = Application.CommandBars.Add
    
55.   With 工具栏3
    
56.        .Name = "我的工具栏3"
    
57.        .Position = msoBarTop
    
58.        .Visible = True
    
59.     For m1 = 1 To UBound(myarray1) + 1
    
60.      Set 命令按钮 = .Controls.Add
    
61.        With 命令按钮
    
62.          .Caption = myarray1(m1 - 1)
    
63.          .FaceId = myarray2(m1 - 1)
    
64.          .OnAction = myarray1(m1 - 1)
    
65.          .Style = msoButtonIconAndCaptionBelow
    
66.        End With
    
67.     Next
    
68. End With
    

复制代码