当前位置：文档之家 › 批量调整WORD图片大小教程

批量调整WORD图片大小教程

  • 格式：docx
  • 大小：187.43 KB
  • 文档页数：4

批量调整WORD图片大小教程

今天编辑一份WORD文档，里面有很多图片，需要将里面的图片调整为固定大小，一般操作方法是右键点击图片，然后再点击大小按钮

弹出大小菜单，修改高度和宽度数值即可。

但是文档里面图片太多，这样一张一张的修改，会让人崩溃。

下面介绍批量调整图片大小的方法。

打开WORD文档后，按Alt+F8进入宏的界面，如下图所示，

输入一个宏的名字，这里宏名为调整图片大小，单击“创建”进入宏编辑器，

进行宏编辑界面以后，将里面的代码全部删掉，然后复制如下代码并保存

Sub 调整图片大小() '调整图片大小

Dim n ' 图片个数

On Error Resume Next ' 忽略错误

For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes 类型图片

ActiveDocument.InlineShapes(n).Height = 400 '设置图片高度为 400px

ActiveDocument.InlineShapes(n).Width = 300 '设置图片宽度 300px

Next n

For n = 1 To ActiveDocument.Shapes.Count 'Shapes 类型图片

ActiveDocument.Shapes(n).Height = 400 '设置图片高度为 400px

ActiveDocument.Shapes(n).Width = 300 '设置图片宽度 300px

Next n

End Sub

宏保存以后，将宏编辑界面关闭。返回到WORD文档，再次按Alt+F8进入宏的界面，如下图所示

这次点击选中调整图片大小的宏，然后点击运行，就开始自动调整图片大小了。如果文档里面图片较多，执行的时间会长一些。另外宏代码里面的高度和宽度数值可以自己按需要进行修改。

另外再送一个批量按比例缩放图片的宏，制作方法和上面的一样。

Sub 图片按比例缩放() '图片按比例缩放

Dim n '图片个数

Dim picwidth

Dim picheight

On Error Resume Next '忽略错误

For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes 类型图片

picheight = ActiveDocument.InlineShapes(n).Height

picwidth = ActiveDocument.InlineShapes(n).Width

ActiveDocument.InlineShapes(n).Height = picheight * 1.1 '设置高度为1.1倍

ActiveDocument.InlineShapes(n).Width = picwidth * 1.1 '设置宽度为1.1倍

Next n

For n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片

picheight = ActiveDocument.Shapes(n).Height

picwidth = ActiveDocument.Shapes(n).Width

ActiveDocument.Shapes(n).Height = picheight * 1.1 '设置高度为1.1倍

ActiveDocument.Shapes(n).Width = picwidth * 1.1 '设置宽度为1.1倍

Next n

End Sub

合集下载

word如何统一设置图片格式

word如何统一设置图片格式

word如何统一设置图片格式

在word中，默认插入的嵌入式图片是不能批量统一设置格式版式的，只有将默认修改为四周型后，才可以批量修改图片版式或大小，下面让店铺为你带来word统一设置图片格式的方法。

word统一设置图片格式步骤：

1、打开word，在”工具“菜单下选择”选项“命令;

2、在”选项“窗口中，在”编辑”选项卡下，将插入图片的格式选择为“四周型”;

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

4、在“插入图片“对话框中选择要插入的图片;

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

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

7、双击任意一图片，在弹出的对话框中，就可以统一设置版式或大小了;

8、确定，完成，此时，所有的图片都变成了统一设置完成。

关于word统一设置图片格式的相关文章推荐：

让WORD文档中所有图片大小相同

让WORD文档中所有图片大小相同

1 / 1

让WORD文档中所有图片大小相同

1.一张一张去设置，不过你可以通“图片格式”里的“大小”先设置好其中一张的大小，然后点一张，F4，再点一张再按F4，这样可能会快一些.

2.使用VBA吧，一次性可以全部调整好。

3.word2007选定一张图片后，然后点击“格式相似的文本”，就可以把本文档里的全部图片选定，，然后再在图片工具栏里把长宽修改成相同的尺寸。

4.可以全选后再设置

在“绘图工具栏”中有个“选择多个对象按钮”（默认没有显示，可以添加），选中多个图片后“右击鼠标”-----设置图片格式------大小----设置具体的高度、宽度即可word 2003等:

一,在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 iShape

End Sub

word中图片如何统一大小

word中图片如何统一大小

操作步骤如下：1.打开要统一图片大小的Word文档，点击“工具”-“宏”-“Visual Biscal编辑器。

2）插入normal工程“模块”。

3）在“模块”中粘贴下面的代码。

Sub batchResizeShape()

Dim doc As Document

Dim i As Integer

Set doc = ActiveDocument

For i = 1 To doc.InlineShapes.Count

'doc.InlineShapes

'doc.Shapes(i).ScaleHeight 0.5, msoFalse, msoScaleFromMiddle

'doc.Shapes(i).ScaleWidth 0.5, msoFalse, msoScaleFromMiddle

doc.InlineShapes(i).Height = 198.15

doc.InlineShapes(i).Width = 264.45

Next i

End Sub

4）保存，返回你要统一图片大小的Word文档。运行“工具”-“宏”-"宏命令"。

看一下结果，是不是你想要的统一图片大小。

我用的两张图一个大一个小，统一后400*300还是很大，放在两个页面上，上面是25%的缩略图，至此实现了统一大小的目标，如果你想要其它的大小，只需按代码里的说明更改一下长宽数值即可。

如何降低有大量图片的Word文档大小

如何降低有大量图片的Word文档大小

如何降低大量图片的Word文档大小

当Word文档中插入大量的图片后，Word字节迅速增大，动则几兆甚至几十兆，这给文档的传递发送保存带来很多困难。如何降低文档大小呢，Office2003提供两种解决方法，供各位参考。

一、整篇压缩法

1. 点击菜单 “文件”“另存为”，在弹出对话框中，点击“工具”压缩图片。如下图：

2. 在压缩图片对话框中，点击“确定”即可。整个文档立即变小。

二、批量图片压缩法

1、打开Office2003工具栏中Microsoft Office Picture Manager软件，如下图：

2、选择要压缩的图片，点击菜单栏“图片”——“压缩图片”，在右边的“压缩图片”设置栏中选择相应的选项。保存后即可用于文档。