按照你的意思，就不应该做在sheet上，而应该使用ToolBar，ToolBar是可以漂浮在窗口上的，不随sheet变化而变化，甚至删除sheet都没有问题。Sub My_Bar_Set()
Dim myBar As CommandBar
Dim myBtm As CommandBarButton
'建立新"Bar1"工具栏
Set myBar = CommandBars.Add("bar1", msoBarFloating)
Set myBtm = CommandBars("Bar1").Controls.Add(Type:=msoControlButton)
'设置"Bar1"工具栏
W...
