word怎么批量调整图片大小 word文档如何批量修改图片大小

分析：由于Word不能像excel一样多选图片，所以不能多选图片后统一缩放，所以考虑可以重复多次一样动作的宏功能：

1. 打开视图-宏-输入一个名字-创建

2.输入以下代码，注意替换内有的内容和尺寸不是下面的5cm可以直接更改。

Sub FormatPics()

Dim iSha As InlineShape

For Each iSha In ActiveDocument.InlineShapes

If iSha.Type = wdInlineShapePicture Then

iSha.LockAspectRatio = msoFalse '不锁定纵横比

iSha.Width = CentimetersToPoints(5) '宽5CM

iSha.Height = CentimetersToPoints(5) '高5CM

End If

Next

End Sub

3.宏-运行，可以直接批量缩放图片尺寸，左边为最终效果图。

word2003中怎样批量调整图片大小

一,在word中按alt+f11组合键,进入VBA模式

二,在左边的工程资源管理器中找到你的word文档,在其上右键/添加/模块

三,把下面代码复制,粘贴进去.

四,更改数值, 改一下宽度和高度数值(10)，点运行(类似播放按钮.)或f5,即可设置文档中全部图片

Sub Macro()

Mywidth=10'10为图片宽度（厘米）

Myheigth=10'10为图片高度（厘米）

For Each iShape In ActiveDocument.InlineShapes

iShape.Height = 28.345 * Myheigth

iShape.Width = 28.345 * Mywidth

Next iShapeEnd Sub

由于是批量的处理同样的事情，因此要用到宏。

是这样的，如果你的图片显示的是嵌入式的。也就是不能旋转的那种格式，钻切换大小会很容易，方法

要使用宏命令。

宏主要用来处理有规律的重复的工作，相当于批处理。想好了就能编辑出来。工具→宏→录制新宏→然后指定一个快捷键（如L，相当于ctrl L快捷键），然后指定、关闭。开始录制宏。把你能够重复的操作执行一下，以计算机能识别的重复为准。然后→工具→宏→停止录制。这样宏就录制出来了。你ctrl L执行就行了。连续按，则连续执行。如果不完全正确，还要修改或重新录制宏。

对你来说：使用的循环是：查找，图形→然后调整大小，然后鼠标移到图形右侧。然后再执行循环。这个命令是：ctrl F，点开高级，查找里面，选择特殊格式里面的“图形”，单击查找下一个。关掉查找界面，回到word编辑界面。直接去单击 格式菜单里面的 图片，设置大小为你认可的比例。确定。然后将光标用键盘移出 图片（右移以下）。

执行宏即可。

如何批量调整word中图片的分辨率大小？

选一个图片点右键/设置图片格式/点图片选项卡/点压缩/点文档中所有图片　　　OK

选项卡下面“压缩图片”和“删除图片的裁剪区域”要打勾

　　　上面分辨率选不更改 或WEB/屏幕

　　　你再试一下

怎样批量调整word 图片大小

我知道通过宏可以批量完成一个word中所有图片大小的修改，在次与大家共享，也希望可以给大家参考。

1、Alt+F8调出宏编辑窗口

2、点创建按钮，创建新宏，setpicsize,内容如下：

Sub setpicsize()

'设置图片大小

' 宏在 2008-3-31 由 hero_thm 录制

'

Dim j '计数图片个数

For j = 1 To ActiveDocument.InlineShapes.Count '文件中图片总个数，图片类型为inlineshapes

ActiveDocument.InlineShapes(j).Height = 362 '设置高度

ActiveDocument.InlineShapes(j).Width = 481.87 '设置宽度

Next j

End Sub

3、保存退出，点运行setpicsize宏，word中所有的图片统一调整为宽17cm，高12.77cm

Sub setpicsize()

'设置图片大小

' 宏在 2008-3-31 由 hero_thm 录制

'

Dim j '计数图片个数

For j = 1 To ActiveDocument.InlineShapes.Count '文件中图片总个数，图片类型为inlineshapes

If ActiveDocument.InlineShapes(j).Width > 480 Then

ActiveDocument.InlineShapes(j).Width = 400 '设置宽度

End If

Next j

End Sub

如何批量调整word中插入的图片大小

批量调整word中插入的图片大小，需要用到“选中多个对象”这个工具；操作方法如下：

1；文档中所有的图片无论是放在一页，还是分布在多页上，操作都一样；

先在文档绘图工具栏中点下“选中多个对象”工具；

2；弹出的操作框中，点“全选”，点"全选“后，在”对象“这里的图片即被打上勾；然后，点确定；

3；点确定后，文档中所有图片即被同时选中；

4；然后，在任意一张图片上鼠标右键点下，弹出的菜单中点“设置图片格式”；

5；弹出的操作框中，点下“大小”；打开“大小”设置框；在“高度”和“宽度”分别 设置自己预定的数字；在“锁定纵横比”和“相对原始图片大小”这两处要取消勾；然 后点确定。

6；点确定后，文档中所有图片都同时一次的批量的调整了大小。

怎样批量设置word文档里图片大小

1、首先选中任意一张图片，然后右键点击该图片，在弹出菜单中选择大小和位置菜单项。

2、然后在弹出的布局窗口中设置好图片的高度与宽度。

3、另外同时要把锁定纵横比与相对原始图片大小前的勾选去掉。

4、接下来我们选择其他的图片。按下重复上一步操作快捷键F4键。这时就可以快速把这一个图片也设置成同样大小了。以此类推，全部设置完成。

如何批量调整word中插入的图片大小?

1

打开WORD，在”工具“菜单下选择”选项“命令。

2

在”选项“窗口中，在”编辑”选项卡下，将插入图片的格式选择为“四周型”，为什么要这么操作，因为我们默认插入图片的方式是嵌入式，使用“选择多个对象”命令时无法选择。

3

在“插入”菜单中选择“图片”/“来自文件”

在“插入图片“对话框中选择要插入的图片。

在“绘图”工具栏中的“添加或删除按钮”中选择“选中多个对象”

使用“选中多个对象”，将所有插入的图片全部选中。

双击任意一图片，在弹出的对话框中，将图片设置一固定尺寸，并取消下方的”锁定纵横比“命令。

这个时候你会发现所有的图片都变成了统一尺寸大小了。

那么怎么样将这些图片导出来呢？在”文件“菜单中选择”另存为“命令。

在”另存为“对话框中将保存类型设置为”网页“，最后点击”确定“按钮保存文件。

打开刚刚保存的文件，右击在弹出的菜单选择以”大小“进行排序。

大家可以发现，我们修改的后的图片都是相同的尺寸了。

其实保存的文件中有一个原图和修改尺寸后的图，我以大小进行排序的话可以很快速将他们分离出来。

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

这个要用到VBA的，打开你的文档后，按Alt+F11,在左边Porject下找到ThisDocument，右键插入模块，贴上下面的

Sub Macro()

For Each iShape In ActiveDocument.InlineShapes

iShape.Height = iShape.Height * 0.25

iShape.Width = iShape.Width * 0.25

Next iShape

End Sub

按F5运行一次就可以了。

转载请注明出处51数据库 » word怎么批量调整图片大小 word文档如何批量修改图片大小