以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  删除excel图片  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=172364)

--  作者：lxhmax --  发布时间：2021/10/9 10:24:00 --  删除excel图片 可以用代码删除excel里面的图片吗?

--  作者：有点蓝 --  发布时间：2021/10/9 10:40:00 --   Dim app As New MSExcel.Application try     Dim fileName = "e:\\123.xls"     Dim doc As object = App.WorkBooks.Open(fileName)     Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)     For Each a As object In ws.Shapes         a.delete     Next          app.visible = True catch ex As exception     msgbox(ex.message)     app.Quit End try