Public Sub cusAddMenu_Click()'运行时请在窗体增加按钮cusAddMenu Dim cusBar As CommandBar Dim newButton As CommandBarButton Dim strmn As String strmn = "高级操作" For Each cusBar In CommandBars If cusBar.Name = strmn Then cusBar.Delete GoTo tt End If Next tt: Set cusBar = Application.CommandBars.Add(strmn, msoBarTop, False, True)Set newButton = cusBar.Controls.Add(msoControlButton, 1) With newButton .Caption = "抽查统计" .Style = msoButtonCaption . '"这里使用,但不行" End With cusBar.Visible = True End SubSub 抽查() MsgBox "大" End Sub这是网上找的代码, 里面有新增按钮的代码 自已找, 不能完全靠别人的
Public Sub cusAddMenu_Click()'运行时请在窗体增加按钮cusAddMenu
Dim cusBar As CommandBar
Dim newButton As CommandBarButton
Dim strmn As String
strmn = "高级操作"
For Each cusBar In CommandBars
If cusBar.Name = strmn Then
cusBar.Delete
GoTo tt
End If
Next
tt:
Set cusBar = Application.CommandBars.Add(strmn, msoBarTop, False, True)Set newButton = cusBar.Controls.Add(msoControlButton, 1)
With newButton
.Caption = "抽查统计"
.Style = msoButtonCaption
.
'"这里使用,但不行"
End With
cusBar.Visible = True
End SubSub 抽查()
MsgBox "大"
End Sub这是网上找的代码, 里面有新增按钮的代码
自已找, 不能完全靠别人的