关闭

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

775人阅读 评论(0) 收藏 举报
分类:

如果您有一推图片且大小一样,想用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


0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:156340次
    • 积分:4317
    • 等级:
    • 排名:第7004名
    • 原创:279篇
    • 转载:37篇
    • 译文:1篇
    • 评论:23条
    最新评论