[已解决]大家帮我看看这个代码有什么问题

JOB007

Sub 添加按钮和控件()
Dim 工具栏 As CommandBar
Dim 按钮 As CommandBarButton
Set 工具栏 = Application.CommandBars.Add
With 工具栏
.Name = "我的工具栏"
.Visible = True
End With
Set 按钮 = 工具栏.Controls.Add(Type:=msoControlButton)
With 按钮
.Caption = "我的命令"
.FaceId = 17
.Style = msoButtonIconAndCaption
End With
End Sub
添加按钮并设置图标.rar (5.95 KB, 下载次数: 3)

2014-6-16 00:40 上传

点击文件名下载附件
运行不了啊

最佳答案

月排行榜 / 总排行榜

FnG

2014-6-16 01:09

添加工具栏没问题呀，你说的运行不了是指你这个代码运行不了还是说你点了“我的命令”按钮没反应？
前者没问题，如果是后者的话在.Style = msoButtonIconAndCaption的下面加一句：
.OnAction = "你要运行的过程名称"          '关联需运行的程序名称

跳转到最佳答案楼层

FnG

添加工具栏没问题呀，你说的运行不了是指你这个代码运行不了还是说你点了“我的命令”按钮没反应？
前者没问题，如果是后者的话在.Style = msoButtonIconAndCaption的下面加一句：
.OnAction = "你要运行的过程名称"          '关联需运行的程序名称

JOB007

FnG 发表于 2014-6-16 01:09
添加工具栏没问题呀，你说的运行不了是指你这个代码运行不了还是说你点了“我的命令”按钮没反应？
前者没 ...

谢谢，我明白了，是因为我之前有一个同名的工具栏，所以不能运行。谢谢你的回答