|
发表于 2014-4-24 23:29
|
显示全部楼层
本楼为最佳答案
- Sub 添加工具栏()
- On Error Resume Next
- Application.CommandBars("我的工具栏1").Delete '这句不产生作用,每次都没有把前一次的工具删除的???????????
- Application.CommandBars("我的工具栏2").Delete
- Application.CommandBars("我的工具栏3").Delete
- Dim 工具栏 As CommandBar, 命令按钮 As CommandBarControl, 子菜单 As CommandBarControl
- Dim m1 As Integer, myarray1 As Variant, myarray2 As Variant
- myarray1 = Array("数据库检查", "数据库检查", "数据库检查", "数据库检查", "数据库检查", "数据库检查", "数据库检查", "数据库检查", "数据库检查", "数据库检查")
- myarray2 = Array("263", "264", "265", "266", "267", "268", "269", "270", "271", "272")
- Set 工具栏 = Application.CommandBars.Add
- With 工具栏
- .Name = "我的工具栏1"
- .Position = msoBarTop
- .Visible = True
- For m1 = 1 To UBound(myarray1) + 1
- Set 命令按钮 = .Controls.Add
- With 命令按钮
- .Caption = myarray1(m1 - 1)
- .FaceId = myarray2(m1 - 1)
- .OnAction = myarray1(m1 - 1)
- .Style = msoButtonIconAndCaptionBelow
- End With
- Next
- End With
- myarray1 = Array("数据库检查", "数据库检查", "数据库检查", "数据库检查", "数据库检查", "数据库检查", "数据库检查", "数据库检查", "数据库检查", "数据库检查")
- myarray2 = Array("263", "264", "265", "266", "267", "268", "269", "270", "271", "272")
- Set 工具栏 = Application.CommandBars.Add
- With 工具栏
- .Name = "我的工具栏2"
- .Position = msoBarTop
- .Visible = True
- For m1 = 1 To UBound(myarray1) + 1
- Set 命令按钮 = .Controls.Add
- With 命令按钮
- .Caption = myarray1(m1 - 1)
- .FaceId = myarray2(m1 - 1)
- .OnAction = myarray1(m1 - 1)
- .Style = msoButtonIconAndCaptionBelow
- End With
- Next
- End With
- myarray1 = Array("数据库检查", "数据库检查", "数据库检查", "数据库检查", "数据库检查", "数据库检查", "数据库检查", "数据库检查", "数据库检查", "数据库检查")
- myarray2 = Array("263", "264", "265", "266", "267", "268", "269", "270", "271", "272")
- Set 工具栏 = Application.CommandBars.Add
- With 工具栏
- .Name = "我的工具栏3"
- .Position = msoBarTop
- .Visible = True
- For m1 = 1 To UBound(myarray1) + 1
- Set 命令按钮 = .Controls.Add
- With 命令按钮
- .Caption = myarray1(m1 - 1)
- .FaceId = myarray2(m1 - 1)
- .OnAction = myarray1(m1 - 1)
- .Style = msoButtonIconAndCaptionBelow
- End With
- Next
- End With
- Set 子菜单 = CommandBars("我的工具栏1").Controls.Add(Type:=msoControlPopup) ', before:=4, temproray:=True)
- 子菜单.Caption = "排序方式"
- myarray1 = Array("单条件排序", "多条件排序")
- myarray2 = Array("654", "541")
- With 子菜单
- For m1 = 1 To UBound(myarray1) + 1
- Set 命令按钮 = .Controls.Add
- With 命令按钮
- .Caption = myarray1(m1 - 1)
- .FaceId = myarray2(m1 - 1)
- .OnAction = myarray1(m1 - 1)
- End With
- Next
- End With
- Set 子菜单1 = CommandBars("我的工具栏2").Controls.Add(Type:=msoControlPopup)
- 子菜单1.Caption = "发送"
- myarray1 = Array("选择联系人", "添加联系人", "发送至桌面")
- myarray2 = Array("361", "362", "69")
- With 子菜单1
- For m1 = 1 To UBound(myarray1) + 1
- Set 命令按钮 = .Controls.Add
- With 命令按钮
- .Caption = myarray1(m1 - 1)
- .FaceId = myarray2(m1 - 1)
- If m1 - 1 = 2 Then .BeginGroup = True
- .OnAction = myarray1(m1 - 1)
- End With
- Next
- End With
- Set 命令按钮 = Nothing: Set 工具栏 = Nothing: Set 子菜单 = Nothing
- End Sub
复制代码 |
评分
-
查看全部评分
|