word一次性修改图片格式

562834031

如何一次性修改图片大小，并且还能保证图片就在原文档原位置中修改，不是形成堆砌在一起，然后还要一个一个的复制粘贴到原来的位置呢？

cuanju

可以批量将所有图片设置为原来大小的的0.6倍。
===========================
Sub d1()
    '批量修改图片大小
    Application.ScreenUpdating = False
    On Error Resume Next '忽略错误
    For N = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes 类型
        picheight = ActiveDocument.InlineShapes(N).Height
        picwidth = ActiveDocument.InlineShapes(N).Width
        ActiveDocument.InlineShapes(N).Height = picheight * 0.6 '设置高度为原来的0.6倍
        ActiveDocument.InlineShapes(N).Width = picwidth * 0.6 '设置宽度为原来的0.6倍
    Next N
    For N = 1 To ActiveDocument.Shapes.Count 'Shapes类型
        picheight = ActiveDocument.Shapes(N).Height
        picwidth = ActiveDocument.Shapes(N).Width
        ActiveDocument.Shapes(N).Height = picheight * 0.6 '设置高度为原来的0.6倍
        ActiveDocument.Shapes(N).Width = picwidth * 0.6 '设置宽度为原来的0.6倍
    Next N
    Application.ScreenUpdating = True
End Sub

wdpfox

学习收获不匪，谢谢分享！

562834031

cuanju 发表于 2020-2-14 13:28
可以批量将所有图片设置为原来大小的的0.6倍。
===========================
Sub d1()

谢谢你。我试试