[已解决]又请教这个宏怎么改才能删除工作薄中的所有按钮

bipl607

非常感谢版主的多次帮助,但我使用下面的宏时只能删去当前工作表的按钮,不能删除当前工作薄的所有按钮,怎么改呢,谢谢!

Sub MacroDel
For Each ms In ActiveSheet.Shapes
  ms.Delete
Next ms
End Sub

最佳答案

月排行榜 / 总排行榜

amulee

2010-7-29 15:26

Sub MacroDel()

For Each Sht in worksheets
  For Each ms In sht.Shapes
     ms.Delete
   Next ms

next Sht
End Sub

跳转到最佳答案楼层

amulee

Sub MacroDel()

For Each Sht in worksheets
  For Each ms In sht.Shapes
     ms.Delete
   Next ms

next Sht
End Sub

bipl607

我试试,谢谢先.

liangnan1986

跟帖学习