VBA如何遍历某一个word中的全部图片，把它们一一保存在指定的文件夹中？

jiminyanyan

chenlifeng123 发表于 2016-8-27 15:54
分享我的解决办法，谢谢大家和老师。

没看到打开画图程序的代码，手动的？

chenlifeng123

jiminyanyan 发表于 2016-8-27 22:57
没看到打开画图程序的代码，手动的？

不是手动的，自动。不需要启动画图软件。我采用的方法是：
代码模拟手动操作的思路；并且给了一定的等待时间、以及再次复制粘贴的补救，以补sendkeys的不足.经过多次尝试，百分之九十九是准确的。偶尔有一次不对，再加一次复制与粘贴，差不多就万无一失了。

QQ214189912

chenlifeng123 发表于 2016-8-28 11:54
不是手动的，自动。不需要启动画图软件。我采用的方法是：
代码模拟手动操作的思路；并且给了一定的等待 ...

1. 
   

复制代码

chenlifeng123

QQ214189912 发表于 2016-8-28 12:47

感谢帮助，保存是保存了，但图片都是损坏的，看不了。

huang1314wei

chenlifeng123 发表于 2016-8-28 11:54
不是手动的，自动。不需要启动画图软件。我采用的方法是：
代码模拟手动操作的思路；并且给了一定的等待 ...

你这个代码写的太复杂了，实际上也可以调用excel来导出word当中的图片的原始比例图片

1. Sub test()
   
2.     Rem 工具--引用--勾选 Microsoft Excel x.x Object Library..
   
3.     Dim myshape As Object, ExcelApp As New Excel.Application
   
4.     Dim Excel As Workbook, i%, z%
   
5.     Set Excel = ExcelApp.Workbooks.Add
   
6.     For Each myshape In ActiveDocument.InlineShapes
   
7.         If myshape.Type = 3 Then
   
8.             i = i + 1
   
9.             myshape.Select
   
10.             Set myshape = myshape.ConvertToShape
    
11.             Rem 以下代码将图片以原始比例展示
    
12.             With myshape
    
13.                 .ScaleHeight 1, True, msoScaleFromMiddle
    
14.                 .ScaleWidth 1, True, msoScaleFromMiddle
    
15.             End With
    
16.             Selection.Copy
    
17.             With Excel.ActiveSheet.ChartObjects.Add(0, 0, myshape.Width, myshape.Height).Chart
    
18.                 .Paste
    
19.                 .Export ActiveDocument.Path & "" & i & ".png"
    
20.                 .Parent.Delete
    
21.             End With
    
22.          End If
    
23.     Next
    
24.     Excel.Close False
    
25.     ExcelApp.Quit
    
26. End Sub

复制代码

chenlifeng123

huang1314wei 发表于 2016-8-28 13:20
你这个代码写的太复杂了，实际上也可以调用excel来导出word当中的图片的原始比例图片

方法不错，非常给力~！感谢 老师！

chenlifeng123

QQ214189912 发表于 2016-8-28 12:47

您的代码修改后，现在看不到了。

chenlifeng123

huang1314wei 发表于 2016-8-28 13:20
你这个代码写的太复杂了，实际上也可以调用excel来导出word当中的图片的原始比例图片

您代码我发现：处理完一次后，word中的图片都变成原来大小 ，再想第二次执行代码，好像不行了。
同时，如何恢复图片大小到没有执行代码前的大小呢？

huang1314wei

chenlifeng123 发表于 2016-8-28 14:32
您代码我发现：处理完一次后，word中的图片都变成原来大小 ，再想第二次执行代码，好像不行了。
同时， ...

你把文件关闭不保存不就行了？

chenlifeng123

huang1314wei 发表于 2016-8-28 14:47
你把文件关闭不保存不就行了？

谢谢，只能这样了哈。我一般采取的办法是先复制备份一份再用代码处理的。主要怕一不小心因为习惯性保存而失误。