如何调整Word中所有/多个图像的大小?

网友投稿 193 2024-02-06

如何调整Word中所有/多个图像的大小?

当我们从Internet或其他文件复制或导入图像时,图像的大小可能会有所不同。 每个人都知道如何一张一张地缩放图片,但是如果我们想一次将它们缩放到相同的尺寸,我们该怎么办? 本教程将向您展示几种调整图像大小的方法。

如何调整Word中所有/多个图像的大小?

在Word中手动调整图像大小

使用VBA调整图像大小

使用 Kutools for Word 一次调整多个图像的大小

在Word中手动调整图像大小

1。 通过单击图片来显示图片的大小调整手柄;

2。 将光标放在图片的大小调整手柄之一上。

3。 拖动大小调整手柄,直到图片尺寸适合您的需求。 看截图:

备注:使用这种方法,无法一次全部调整多张照片的尺寸。 您需要一个一个地调整它们的大小,直到所有图片都被调整大小。

使用VBA调整图像大小

使用以下VBA代码,您可以将图片调整为理想的尺寸。 您可以完成以下操作:

在此示例中,我们将图片大小调整为1.78英寸高和3.17英寸宽。

1。 请选择您要更改尺寸的图片;

2。 按 Alt + F11 打开 Microsoft Visual Basic应用程序 窗口;

3。 点击 模块 插页 标签,将以下VBA代码复制并粘贴到 模块 窗口;

VBA代码:将一幅图像调整为特定大小:

Sub ResizePics() Dim shp As Word.Shape Dim ishp As Word.InlineShape If Word.Selection.Type <> wdSelectionInlineShape And _ Word.Selection.Type <> wdSelectionShape Then Exit Sub End If If Word.Selection.Type = wdSelectionInlineShape Then Set ishp = Word.Selection.Range.InlineShapes(1) ishp.LockAspectRatio = False ishp.Height = InchesToPoints(1.78) ishp.Width = InchesToPoints(3.17) Else If Word.Selection.Type = wdSelectionShape Then Set shp = Word.Selection.ShapeRange(1) shp.LockAspectRatio = False shp.Height = InchesToPoints(1.78) shp.Width = InchesToPoints(3.17) End If End If End Sub

4. 点击 运行 按钮或 F5 键以运行VBA代码,并且所选图像的大小已调整为您所需的大小。

备注:在上面的代码中,  以shp.Height = InchesToPoints(1.78) shp.Width = InchesToPoints(3.17) 是图片的高度和宽度,您可以更改大小以满足您的需要。

使用此VBA代码,您也无法一次调整所有或多张图片的大小。 您需要在Word文档和Microsoft Visual Basic应用程序 窗口中选择图片并应用代码。 那太费时间了。

使用 Kutools for Word 调整图像大小

Word 的 Kutoolss 调整图像大小 实用程序,您可以摆脱那些烦人且耗时的操作,并快速调整文档中所有图像的大小。

Kutools for Word : 带有超过100个方便的Word加载项,可以在60天内免费试用. 
前往下载60天免费试用贝宝/ MyCommerce

1。 请通过单击应用此实用程序 Kutools 加 > 调整大小。 看截图:

2。 如果要将所有图像调整为原始尺寸的某个百分比,请从下拉列表中选择六个百分比之一。 例如,如果要将所有图片调整为原始尺寸的50%,请选择50%。 点击后 25%,您将看到所有图片的大小已调整为50%。 看截图:

如果您想将所有图像调整为相同的大小并选择一个,请选择一张照片作为模型尺寸,然后单击 Kutools 加 > 调整大小 > 通过选择调整图像大小,并且所有图片都会根据所选的图片大小调整为相同大小,请参见屏幕截图:

有关更多详细信息 Kutools for Word 调整图像大小 实用程序,请点击 .

点击下载Kutools for Word并立即免费试用!

演示:在Word中一次调整所有图像的大小
Kutools for Word:具有100多个方便的Word加载项,可以在60天内免费试用,没有限制。 立即下载并免费试用!

最佳办公生产力工具

Kutools for Word - 通过 Over 提升您的文字体验 100 显着特点!

📘 文档掌握: 分页  /  合并文件  /  以各种格式导出选择(PDF/TXT/DOC/XLSX)  /  批量转换为PDF  /  将页面导出为图像  /  一次打印多个文件 ...

内容编辑: 批量查找和替换 跨多个文件   /  调整所有图片的大小   /  转置表行和列  /  将表格转换为文字 ...

🧹 轻松清洁: 扫开 多余的空间  /  分节符/   所有标题  /  文本框  /  超链接  /  如需更多删除工具,请前往我们的删除组

创意插入: 插页 千位分隔符  /  复选框  /  单选按钮  /  二维码  /  条码  /  对角线表  /  公式标题  /  图片说明  /  表标题  /  多张图片  /  在我们的插入组中发现更多信息

🔍 精准选择: 精确定位特定页面  /  表  /  形状  /  标题段落  /  使用我们的选择组轻松导航

星级增强: 快速导航至任何位置  /  自动插入重复文本  /  在文档窗口之间无缝切换  /  11 转换工具 ...

使用 Kutools 转换您的 Word 任务。 👉 立即下载并试用 30 天 🚀。

版权声明:本文内容由网络用户投稿,版权归原作者所有,本站不拥有其著作权,亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容,请联系我们jiasou666@gmail.com 处理,核实后本网站将在24小时内删除侵权内容。

上一篇:如何从Word中的文档中删除/删除所有表
下一篇:如何在Word中快速将域代码转换为纯文本
相关文章