微信公众号：

下面的代码删除当前工作表中的所有形状：

Sub DeleteAllShapesInWorksheet()

    Dim shp As Shape

    For Each shp InActiveSheet.Shapes

        shp.Delete

    Next shp

End Sub

• 冰糖加苦瓜泡水喝原来这么厉害，每个男女都需要，太实用了
• 如何解决你的大象腿？其实用这些跑步方法就能收获好的效果！
• 300多位老乡的中秋送礼清单，既实用又体面，收藏了！
• 那些你以为一次性的小东西，其实用处可多着了！
• 【实用】100个你不知道的生活小妙招，个个超实用！
• 扩大股份回购情形简化决策程序
• 拼房App涉黄遭封禁小程序换马甲再复活 异性拼床功能更隐蔽
• 实用帖！行家教你一分钟挑选肥美大闸蟹！
• 8月48只基金进入清算程序！再创单月新高，竟有公司今年清盘20只
• 白酒加一物，专治颈椎病、肩周炎、腰腿疼痛，超实用！