【目前站内待审帐号共：2 个】    | 学校官网 | 加入收藏 | 站点二维码 【我要留言】 
用户登录

账  号：
密  码：
    

  • 电子邮件：0745001@163.COM
  • 即时通讯：QQ-164247110
  • 联系地址：洪江市芙蓉中学

    • 文章搜索
    请选择类别
     
    栏目导航
    最新录入

    首页文章中心技术文档
    批量删除工作薄中各工作表中的图片
    来源：转载     点击数：119 次    更新时间：2021-02-26
    Sub Clear_pics()
    Dim jpg As Shape
    Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
    For Each jpg In ws.Shapes
    jpg.Delete
    Next jpg
    Next ws

    End Sub


    Sub aa()

    For Each sht In ThisWorkbook.Sheets
    sht.DrawingObjects.Delete
    Next
    End Sub


    【刷新页面】【加入收藏】【打印此文】 【关闭窗口】
    上一篇：替换校名的宏　下一篇：选修3考前回归导学  
    >>> 申请友情链接 >>>>
    洪江市智慧教育云平台中学生物教学中学生物学生物学教学全国中小学教师继续教育网全国青少年科技创新大赛平台湖南省青少年科技创新大赛平台植物智春晓工作室芙蓉中学

    亚雯名师工作室—中学生物 Copyright @ 2023 - 2028 All rights reserved.  Backstage System 
    ICP备案：ICP备00000000号 联系人： 电话：0745-7736289 E-MAIL:0745001@163.COM 地址：洪江市芙蓉中学