VBA如何查找WORD所有的图片，并对超大图片进行缩小处理？

chenlifeng123

我有代码，只能查找其中一张图片，且不知道如何修改图片的大小：
    如：某图片的长和宽，只要分别大于15和10，就把它的长和宽设置成3和2。所有图片，只要存在和不符合条件，都要处理。谢谢指点！～

Sub Macro1()
     Selection.HomeKey Unit:=wdStory
     Selection.Find.text = "^g"
     Selection.Find.Forward = True
     Selection.Find.Wrap = wdFindAsk
     Selection.Find.Execute

     If Selection.Find.Found Then
        ………………？？？
     End If
End Sub

szqhb

直接把所有的的长和宽都设置成3和2不行吗？

chenlifeng123

szqhb 发表于 2012-4-19 01:06
直接把所有的的长和宽都设置成3和2不行吗？

首先感谢老师关注！
其实：
一、就算按老师的意见，我也不知道如何用代码操作哈；
二、之所以有分别，是因为有些图片，它本身大小是合适的，不要再设置大小；而要设置大小的，只是其中的几张罢了。

chenlifeng123

反馈大家，已经解决，如下：
sub 尝试()
    Dim Pic As Object
    Dim H1 As Single
    Dim W1 As Single
    H1 = 29.25 / 3   ‘这里的数字，仅作于举例
    W1 = 27.75 / 2
    For Each Pic In ActiveDocument.InlineShapes
        If Pic.Height > H1 * 15 And Pic.Width > W1 * 10 Then
            Pic.Height = H1 * 3
            Pic.Width = W1 * 3
        End If
    Next Pic
    Set Pic = Nothing
end sub

tangqingfu

谢谢楼主的分享！