word更改所有图片的格式，解决每次图片居中要手动调整的问题

zx66zx

已于 2022-06-05 18:29:25 修改

阅读量610

点赞数 1

文章标签： word

于 2021-12-28 13:25:13 首次发布

本文链接：https://blog.csdn.net/zx66zx/article/details/122190243

版权

新建一个图片的样式

然后在宏里运行

代码参考来自这里

Sub CenterInLinePictures()
  Dim objInLineShape As InlineShape
  Dim objDoc As Document
 
  Set objDoc = ActiveDocument
 
  For Each objInLineShape In objDoc.InlineShapes
    objInLineShape.Select
    Selection.Style = ActiveDocument.Styles("图片")

  Next objInLineShape
End Sub

用宏命令对word里的图片尺寸大小进行批量修改的方法 - 知乎

参考这里补充更改图片尺寸大小的

Sub CenterInLinePictures()
  Dim objInLineShape As InlineShape
  Dim objDoc As Document
 
  Set objDoc = ActiveDocument
 
  For Each objInLineShape In objDoc.InlineShapes
    objInLineShape.Select
    Selection.Style = ActiveDocument.Styles("图片")
    objInLineShape.Height = 28.35 * 5 
    objInLineShape.Height = 28.35 * 5  '5的单位是厘米
  Next objInLineShape
End Sub