第64集 Excel命令栏设置(二)
309、 在指定的命令栏中添加命令
单元格右键菜单添加一个名为“我的命令”的命令
Dim mycom As CommandBarComboBox
Sub tiancom()
On Error Resume Next
Dim myBAR As CommandBarButton
Application.CommandBars(“CELL”).Controls(“我的命令”).Delete
Set myBAR = Application.CommandBars(“cell”).Controls.Add(before:=1) '添加到最上的位置
With myBAR
.Caption = “我的命令”
.BeginGroup = True '添加分组线
.FaceId = 199 '显示的图标
.Style = msoButtonIconAndCaption '图标和文字的显示
.OnAction = “ABC” '指定要运行的宏
End With
End Sub
Sub ABC()
MsgBox “这是运行的宏”
End Sub
310、 添加组合框(Excel 2010运行无效果)
Sub 添加组合框()
On Error Resume Next
Dim x
Application.CommandBars(“CELL”).Controls(“工作表显示”).Delete
Set mycom = Application.CommandBars(“cell”).Controls.Add(Type:=msoControlComboBox, before:=1) '添加到最上的位置
With mycom
.Caption &#