如何批量删除文档中长小于2厘米，宽小于2厘米的图片

飞驰的椒麻鸡

如何批量删除文档中长小于2厘米，宽小于2厘米的图片。Word文档中，从新闻网站扒的，经常有大量小图片，如何能用VBA代码 批量删除

daibao88

word文档中有Shape、InlineShape图片，分别遍历，判断它们的类型type，是图片， 再判断一下属性Width  Heigh，符合条件就干掉。

飞驰的椒麻鸡

daibao88 发表于 2019-5-2 07:57
word文档中有Shape、InlineShape图片，分别遍历，判断它们的类型type，是图片， 再判断一下属性Width  Heig ...

小哥哥，代码有没有

飞驰的椒麻鸡

谁有代码，求代码啊

daibao88

飞驰的椒麻鸡 发表于 2019-5-2 12:16
谁有代码，求代码啊

参考这个修改吧
http://club.excelhome.net/thread-1125352-1-1.html

413191246se

1. Sub 批量删除图片()
   
2. '从后面往前删除
   
3. '删除文档中所有长宽均小于2厘米的图片
   
4.     Dim n&
   
5.     On Error Resume Next
   
6.     With ActiveDocument
   
7.         MsgBox "嵌入式图片数量（比如：网络图片） = " & .InlineShapes.Count & Space(5) & vbCr & "图片数量（比如：绘图画出的图形） = " & .Shapes.Count, 0 + 48
   
8.         For n = .InlineShapes.Count To 1 Step -1 'InlineShapes类型图片（嵌入式）
   
9.             With .InlineShapes(n)
   
10.                 If Round(.Height / 28.3, 2) <= 2 And Round(.Width / 28.3, 2) <= 2 Then .Delete
    
11.             End With
    
12.         Next
    
13.         For n = .Shapes.Count To 1 Step -1 'Shapes类型图片
    
14.             With .Shapes(n)
    
15.                 If Round(.Height / 28.3, 2) <= 2 And Round(.Width / 28.3, 2) <= 2 Then .Delete
    
16.             End With
    
17.         Next
    
18.         MsgBox "处理完毕！" & vbCr & "嵌入式图片数量（比如：网络图片） = " & .InlineShapes.Count & Space(5) & vbCr & "图片数量（比如：绘图画出的图形） = " & .Shapes.Count, 0 + 48
    
19.     End With
    
20. End Sub

复制代码

413191246se

楼主，你的帖子还要不要看回复？

飞驰的椒麻鸡

413191246se 发表于 2019-5-5 00:36
楼主，你的帖子还要不要看回复？

哈哈，谢谢。多多益善啊 ，我也是个学习的过程

413191246se

可能帖子太多了，你未看到，我提醒你一下。——楼主，感谢不感谢无所谓，但是我想要的回答是，请说明代码是否运行正常，问题是否已解决。