【办公-WORD】vba 统一改变word文档所有的图片大小 然后导出成PDF

如果您有一推图片且大小一样，想用word转成PDF,那么我推荐您使用VBA来调整图片大小，先给word设置 “页面布局-页边距”全部设置成0，再调整成合适的纸张大小，然后启动VBA 【Alt +F11】，粘贴如下代码，修改代码中自定义的宽高（如果不知道，那么先设置一张看看那个宽高最合适），最后 【F5】运行代码等待统一修改完成即可。

Sub 改变图片大小()
Dim iSha As InlineShape
For Each iSha In ActiveDocument.InlineShapes
    If iSha.Type = wdInlineShapePicture Then
       iSha.LockAspectRatio = msoFalse '不锁定纵横比
            iSha.Width = CentimetersToPoints(22#)  '宽22#CM
                iSha.Height = CentimetersToPoints(28.91) '高28.91CM
                End If
                Next
End Sub