Word中成百上千张图片统一尺寸大小?学会这方法10秒钟就搞定

  • A+
所属分类:Word基础 Word排版

有网友发来问题,他有在Word里面有批量图片,要想调整到统一大小,该如何处理呢?

其实这种问题,无外乎就两种思路了,第一就是手动,第二就是使用VBA了,如果想手动的话,其实还是挺麻烦的,你要先选择所有图片,然后再统一调整,但是在Word里面,要选中所有图片,就没有Excel那么方便了(此处略去……),我们采用的方法,是使用VBA来做,即使再多的图片,也在10秒钟内搞定;

导入图片

假设我们就导入这些图片了,大小嘛,有的相同, 有的不同,尺寸是各异的,我们的目标就是要调整到统一大小;

可以在插入选项卡下面,批量导入,也可以单张导入,这个就看你自己的需要了;

设置大小

在Word中按Alt+F11,把下面的代码粘贴进去,然后按F5执行就可以了;

(你可以修改代码中的15和9分别为你需要的尺寸即可)

Sub FormatPics()

Dim Shap As InlineShape

For Each Shap In ActiveDocument.InlineShapes

If Shap.Type = wdInlineShapePicture Then

Shap.LockAspectRatio = msoFalse '不锁定纵横比

Shap.Width = CentimetersToPoints(15) '宽15CM

Shap.Height = CentimetersToPoints(9) '高9CM

End If

Next

End Sub

动画演示

Word中成百上千张图片统一尺寸大小?学会这方法10秒钟就搞定
  • 公众号:i95556
  • 计算机二级考生请关注
  • weinxin
  • 公众号:word_excel_ppt
  • 学习OFFICE请关注
  • weinxin
iexcel

发表评论

:?: :razz: :sad: :evil: :!: :smile: :oops: :grin: :eek: :shock: :???: :cool: :lol: :mad: :twisted: :roll: :wink: :idea: :arrow: :neutral: :cry: :mrgreen: