excel如何删除工作表将多个工作表里的图片删除

来源：蜘蛛抓取(WebSpider) 时间：2016-07-05 12:26 标签： excel如何删除工作表
查看: 5408|回复: 4
如何把多个工作表中的图形、控件对象一下全部删除
阅读权限30
在线时间 小时
& & & & & & & &
如何把多个工作表中的图形、控件对象一下全部删除，我经常操作多个工作表的表格，在多个表格中有一些表格有图形或者无用的控件，请问如何编程把全部工作簿中这些图形一下全部删除，不要影响其它内容哟。拜托路过的大侠帮一下，有小小的附件。
(6.06 KB, 下载次数: 54)
19:23 上传
点击文件名下载附件
阅读权限95
在线时间 小时
& & & & & & & &
Sub test()
& & Dim ws As Worksheet, i&
& & For Each ws In Worksheets
& && & For i = 1 To ws.Shapes.Count
& && &&&ws.Shapes(i).Delete
& && & Next i
& & Next ws
End Sub
复制代码
阅读权限30
在线时间 小时
livewire 发表于
谢谢，我刚刚试了定位对象的办法，试试你的程序，辛苦了，谢谢。
阅读权限20
在线时间 小时
这样就把工作簿中所有的Shapes对象删除了，能只删除当前工作表中的不能？
阅读权限10
在线时间 小时
这种方法不行，就会把所有的Shape删掉，欢迎大家查阅，删除特定的Shape。
最新热点 /1
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师Excel中如何让图片跟着表格走_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
Excel中如何让图片跟着表格走
上传于||暂无简介
阅读已结束，如果下载本文需要使用0下载券
想免费下载更多文档？
定制HR最喜欢的简历
你可能喜欢如何批量从多个excel里提取图片 - 爱问知识人
(window.slotbydup=window.slotbydup || []).push({
id: '2491531',
container: s,
size: '150,90',
display: 'inlay-fix'
里提取图片
As Workbook
Application.ScreenUpdating = False
wbname = ThisWorkbook.Name
Set sht1 = ThisWorkbook.ActiveSheet
mypath = ThisWorkbook.Path & "\"
Filename = Dir(mypath & "*")
Do While Filename && ""
If Filename && wbname Then
Set wb = Workbooks.Open(Filename:=mypath & Filename)
For Each sht In Sheets
sht.DrawingObjects.Copy
Sub 提取图片()
Dim sht As Worksheet, sht1 As Worksheet
Dim pic As Picture
As Workbook
Application.ScreenUpdating = False
wbname = ThisWorkbook.Name
Set sht1 = ThisWorkbook.ActiveSheet
mypath = ThisWorkbook.Path & "\"
Filename = Dir(mypath & "*")
Do While Filename && ""
If Filename && wbname Then
Set wb = Workbooks.Open(Filename:=mypath & Filename)
For Each sht In Sheets
sht.DrawingObjects.Copy
sht1.Paste
Filename = Dir
LoopApplication.ScreenUpdating = TrueEnd Sub
您的举报已经提交成功，我们将尽快处理，谢谢！
大家还关注

我要回帖

更多关于 excel如何删除工作表 的文章

 

随机推荐