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

原创 2016年06月01日 10:08:23

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


版权声明:本文为博主原创文章,未经博主允许不得转载。 https://blog.csdn.net/chenlu5201314/article/details/51553772

修改图片大小与图片加边框VBA宏命令

  • 2014年07月09日 15:10
  • 1KB
  • 下载

VBA批量调整图片宽度

上午花了点时间写了段代码调整WPS文字中图片的宽度,直接看图。 代码如下:Sub 图片宽度批量调整() Dim i Dim j Dim oldHeight Dim oldWidth Dim newH...
  • Ctrain
  • Ctrain
  • 2016-04-17 09:44:29
  • 1105

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

如果您有一推图片且大小一样,想用word转成PDF,那么我推荐您使用VBA来调整图片大小,先给word设置 “页面布局-页边距”全部设置成0,再调整成合适的纸张大小,然后启动VBA 【Alt +F11...
  • chenlu5201314
  • chenlu5201314
  • 2016-06-01 10:08:23
  • 1365

统一设置word文档中的图片大小的宏。

Sub 统一图片尺寸() '仅适用于嵌入式图片     Dim oInlineShape As InlineShape     For Each oInlineShape In ActiveDo...
  • biyusr
  • biyusr
  • 2013-09-09 10:37:54
  • 6908

VBA代码把一个多页的word拆分成任意页数的多个文档

  • 2017年11月05日 10:07
  • 1KB
  • 下载

怎样批量调整word 图片大小?

这个要用到VBA的,打开你的文档后,按Alt+F11,在左边Porject下找到ThisDocument,右键插入模块,贴上下面的 Sub Macro() For Each...
  • chl033
  • chl033
  • 2010-08-03 14:13:00
  • 1951

VBA_批量调整图片宽度

'版心尺寸大小(假设 Word 2003 中,A4纵向纸张,宽度已知是21厘米,左边距2.5厘米,右边距2.5厘米,所以,版心尺寸=宽度-左边距-右边距=16厘米) Dim Width As ...
  • Ctrain
  • Ctrain
  • 2017-04-09 15:54:58
  • 186

数据库表结构导出成WORD文档工具 DBExportDoc V1.0 For MySQL

  • 2009年05月07日 11:06
  • 487KB
  • 下载

word中如何将大量图片批处理统一的尺寸大小

  • 2012年08月31日 16:17
  • 30KB
  • 下载

word用宏修改文档中图片大小

记录一下,批量改图是一个很好的思路.早就听说了word宏,一直没有用过.今天(20171207)用了下,觉得的确不错.操作步骤: 1 ALT+F8 进入宏编辑模式,输入name->create 2 输...
  • pcj2007
  • pcj2007
  • 2017-12-07 18:25:13
  • 84
收藏助手
不良信息举报
您举报文章:【办公-WORD】vba 统一改变word文档所有的图片大小 然后导出成PDF
举报原因:
原因补充:

(最多只允许输入30个字)