2016年3月5日

摘要: Sub test() Dim rg As Range, shp As Shape Rem --------------------------------------------------- Rem 清除图形对象 For Each shp In ActiveSheet.Shapes shp.Del 阅读全文
posted @ 2016-03-05 13:49 隨風.NET 阅读(9872) 评论(0) 推荐(0) 编辑

导航