VBA Code 创建与删除工具栏 -- 测试博客

测试博客
Hope all is well and you are enjoying our slightly cooler temperatures.
VBA Code 创建与删除工具栏

Sub 添加一个自定义工具栏()
On Error Resume Next    '防止没有自定义工具栏的时候Delete语句出错
CommandBars("我的命令栏").Delete
With Application.CommandBars.Add(Name:="我的命令栏", Temporary:=True) '添加一个工具栏并指定其名称与位置
With .Controls.Add          '添加工具栏中的一个按钮
'然后指定按钮的属性
.FaceId = 263                         '图标
.TooltipText = "鼠标飞过图标时的提示"    '提示(鼠标飞过图标时的提示)
.OnAction = "指定响应的宏"              '指定响应的宏
.Caption = "按钮1"                     '标题, 可用&标识快捷键，如：&Dashboard, Weekly&Report.
.Style = msoButtonAutomatic           '样式
.ShortcutText = "Alt+S"               '快捷键提示（需要另外的代码来添加快捷键）
End With
.Visible = True '让工具栏可见
End With
End Sub

• 点赞
• 收藏
• 分享
• 文章举报