跳到主要内容

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

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

在Word中手动调整图像大小

使用VBA调整图像大小

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


在Word中手动调整图像大小

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

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

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

doc调整图片1

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


使用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 的 Kutools's 调整图像大小 实用程序,您可以摆脱那些烦人且耗时的操作,并快速调整文档中所有图像的大小。

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

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

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

doc调整图片3

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

doc调整图片4

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

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


演示:在Word中一次调整所有图像的大小

Kutools for Word:具有100多个方便的Word加载项,可以在60天内免费试用,没有限制。 立即下载并免费试用!

最佳办公生产力工具

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

🤖 Kutools 人工智能助手:用人工智能改变你的写作 - 生成内容  /  重写文本  /  总结文件  /  查询资料 基于文档,全部在Word中

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

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

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

创意插入: 插 千位分隔符  /  复选框  /  单选按钮  /  扫码支付  /  条码  /  对角线表  /  公式标题  /  图片说明  /  表标题  /  多张图片  / 发现更多 插入组...

🔍 精准选择:精确定位 特定页面  /    /  形状  /  标题段落  / 增强导航功能 更多 选择功能...

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

👉 想尝试这些功能吗? Kutools for Word 提供了 60-day免费试用,没有任何限制! 🚀
 
Comments (7)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I wasted a good 3 hrs or more trying to get these VBA macros to work. Gave up and tried Kutools which works great! Purchased it right away as it is well worth the $49!
This comment was minimized by the moderator on the site
If you save your document as .docx, then you will be able to open it as zip-archive. There will be media folder with all images (mine had PNG images). You can then use programs like IrfanView, XnViewMP, FastStone Viewer to perform batch transformations like resize, reduce color depth, etc. Pack your images back into zip and rename it to docx. For example, in my docx full of screenshots I needed to reduce number of colors to 8, which is enough for documentation purposes. After processing my 10MB doc became 1.8MB doc, so savings can be significant. Always save your original docx in case you want to restore pictures after too much degradation/processing etc.
This comment was minimized by the moderator on the site
I need to resize all images in a word document to the same width but not deform the images. so scale them to the same width. Is this possible through a macro?
This comment was minimized by the moderator on the site
Does anyone know if an image placeholder/dropper/automatic sizing feature is available in Windows 365? No idea where to look or find assistance on this since the Microsoft chat help was SO unhelpful. Any tips would be greatly appreciated.
This comment was minimized by the moderator on the site
save your money and run this macro: Credit to Dave Sub resizeimages() Dim i As Long With ActiveDocument For i = 1 To .InlineShapes.Count With .InlineShapes(i) .ScaleHeight = 60 .ScaleWidth = 60 End With Next i End With End Sub
This comment was minimized by the moderator on the site
Where i put this code?
This comment was minimized by the moderator on the site
save your money and run this macro: Credit to Dave Sub resizeimages() Dim i As Long With ActiveDocument For i = 1 To .InlineShapes.C ount With .InlineShapes(i ) .ScaleHeight = 60 .ScaleWidth = 60 End With Next i End With End Sub Excellent!!! You saved my money and my time. Thank you very much!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations