【求助】添加按钮

pureshadow

录制的代码是可以执行的，但是如何指定宏做不到。
如果需要达到打开时出现，关闭时消失，那改用按钮操作也不坏呀。

yj001

在菜单栏上添加菜单是可以实现的，也有代码。我想添加按钮也应该有办法。既然手工可以加，那么vba也可以实现。
做在菜单栏上比较规整好看。也比较节省空间。按钮做在工具栏上也可以，就是要占有空间。
做在工作表上不太方便，会遮盖下面的内容，工作表的内容移动时，会找不到按钮。

实在不行的话，那就算了。
还是要感谢你！

以下代码是做在工具栏上的，是别人帮我做的。
Sub CreateToolBar()
    On Error Resume Next
    CommandBars("Custom Toolbar").Delete
    On Error GoTo 0
    With CommandBars.Add(Name:="Custom Toolbar", Position:=msoBarTop)
        .Visible = True
        With .Controls.Add(Type:=msoControlButton)
            .Caption = "统计"
            .Style = msoButtonCaption
            .TooltipText = "统计"
            .OnAction = "MakeSum"
        End With
    End With
End Sub

Sub RemoveToolBar()
    On Error Resume Next
    CommandBars("Custom Toolbar").Delete
End Sub