有啊 定位(定位的快捷键是F5) 对象 然后按delete键就可以全部删除了...
ctrl+A 全选,然后delete删除就可以!
定位,选择,删除
ActiveSheet.Shapes.SelectAllSelection.Delete