WORD编辑怎么统一图片大小批量设置图片尺寸大小

有些时候我们在网上找到图片大小不一，需要使其尺寸一致，今天小编给大家讲讲如何使用Word统一图片大小，一起来看看吧！

操作方法

首先我们在电脑桌面的一个空白位置点击右键，然后将鼠标移至【新建】，之后再点击【Microsoft Word 文档】，如图一所示。

文档建好之后双击文档将其打开，如图二所示。

文档打开之后，我们点击【页面布局】。

在【页面布局】选项卡中找到【页面设置】，然后点击【页面设置】下的【页边距】。

点击【页边距】之后我们点击【自定义边距】。

在这里，我们对页面的左右页边距进行值的设置。

这里的左右页边距就是指我们要让自己的图片变成多大的尺寸，我们想要把图片缩小到什么程度，就先设置一下。

比如小编在这儿将其左右边距均设置为6厘米。

设置好之后点击【确定】。

页边距设置好之后我们点击【插入】。

然后我们在【插入】选项卡中找到【插图】，然后点击【插图】上的【图片】。

然后将我们的图片选中，如图一所示。

选中之后我们点击【插入】，如图二所示。

这时候我们看看word文档，原本大小不一的图片瞬间就变得整齐了。

如果我们要把这些图片从word里面导出来，我们可以这样做。

首先我们点击word文档左上方的【文件】。

在【文件】选项卡中点击【另存为】。

然后我们将文档的保存类型改为网页。

首先我们点击【保存类型】后的方框，如图一所示。

接下来我们点击【网页（*.htm;*.html)】，如图二所示。

接着点击【保存】，如图三所示。

点击保存之后我们将我们的文档关闭，这是我们就可以看到旁边多了一个文件夹，里面就是刚刚我们调整过大小的图片，我们双击将其打开。

我们会发现这些图片都是很整齐的。这时我们就可以用这些图片上传或者做其他事情了。

word中的图片批量设置图片大小

Word批量更改图片环绕方式与尺寸大小

前提：一份Word文档里面有100张图片，有大有小，需要将100张图片更改为统一大小，宽度与高度均为5厘米，同时环绕方式也需要改成四周型。

默认Word图片的默认环绕方式为嵌入型，需要统一更改为四周型，然后才能批量更改大小，而批量更改大小方式需要使用VBA代码。

第一步：打开 Word 文档，并按下 Alt F11 键（笔记本电脑按alt fn f11)，打开 Visual Basic for Applications (VBA) 编辑器。在 VBA 编辑器中，选择 "插入" -> "模块"，创建一个新的模块,如下图所示输入对应的代码。

第二步：在(VBA) 编辑器输入对应的过程代码：

VBA代码：

' 作用：循环遍历所有的环绕方式为嵌入型图片，将其更改为四周型

Sub ConvertInlineToSquareWrap()

Dim pic As InlineShape

' 循环遍历所有的嵌入型图片

For Each pic In ActiveDocument.InlineShapes

' 检查是否为图片类型

If pic.Type = wdInlineShapePicture Then

' 设置为四周型

pic.Select

Selection.ShapeRange.WrapFormat.Type = wdWrapSquare

End If

Next pic

End Sub

VBA代码：

' 作用：更改图片大小（对环绕方式为四周型或上下型起作用，如果是嵌入型不起作用）

Sub ResizeImages()

Dim shp As Shape

' 更改下面的宽度和高度为所需的尺寸（以厘米为单位）

Dim targetWidth As Single

targetWidth = CentimetersToPoints(5) ' 例如，将图片宽度调整为5厘米

Dim targetHeight As Single

targetHeight = CentimetersToPoints(5) ' 例如，将图片高度调整为5厘米

' 循环处理文档中的所有图片

For Each shp In ActiveDocument.Shapes

If shp.Type = msoPicture Then

' 更改图片大小

shp.LockAspectRatio = msoFalse

shp.Width = targetWidth

shp.Height = targetHeight

End If

Next shp

End Sub

说明：在 targetWidth = CentimetersToPoints(5) ，这个地方可以更改对应的最终目标图片的宽度； targetHeight = CentimetersToPoints(5) 可以更改对应的最终目标图片的高度；

运行宏：在 VBA 编辑器中，选择 "运行" -> "运行子过程"，或按下 F5 键。

第三步：关闭VBA 编辑器回到Word中，选择 "开发工具" -> "宏"，在弹出的宏对话框，如下图所示，宏对话框列表就会出现创建的过程，依次选定单击运行即可批量更改图片大小。

http://www.dushuwu.net/?570.html