Rectangle图形删除VB代码

求excel中Rectangle图形删除VB代码,表中好多Rectangle1 窗格，导致表格很大，很慢！