软件技能|word批量修改图片的纵横比并居中

1. 问题描述

word打开md文件，可以直接把markdown转换为word，但图片默认没有锁定纵横比，且没有居中。这一点给后续的修改带来不便，需要自定义宏进行批量处理。

2. 技术背景

word2013或任何版本。

按住Alt+F8，可以打开后后台的VBA编程界面。

mark

3. 解决方案

通过VBA代码，遍历图片对象，修改纵横比的属性，并设置图片居中即可。

4. 实施示例

• Alt+F8，打开VBA界面
• 粘贴以下代码

Sub locPicRatio()
' 设置图片大小纵横比例模式
' 设置图片居中
Dim j '计数图片个数
For j = 1 To ActiveDocument.InlineShapes.Count '文件中图片总个数，图片类型为inlineshapes

ActiveDocument.InlineShapes(j).LockAspectRatio = msoTrue  ' 锁定纵横比
ActiveDocument.InlineShapes(j).Select
    Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter ' 居中

Next j

End Sub

• 退出VBA，运行宏

  
  
  mark
• 即可批量修改图片属性

5. 常见问题

暂无

本文用时 10 m