【word插入多张图片怎么放大】Word是一种按比例缩放所有图片的方法

简介：有时需要大量放大或缩小文档中的图片，但不能在word中直接批量调整，因此必须使用VBA进行操作。有关如何输入Vba的信息，请参见《如何批量修改word所有图片的尺寸》。

选择开发工具后，我将进入VB编辑器，在右侧的代码窗格中输入。

Sub闪存溢出_按比例放大所有图片()

On Error Resume Next

A=False

Dim比例$、高度、宽度、图As InlineShape

Set文件=Ac

缩放比例=InputBox('输入图片缩放比例' Chr(13)'输入2' Chr(13)'使所有图片的大小均为2倍。要使所有图片大小为0.3倍，请输入0.3’。在闪光提示中')

If比例' ' Then

For Each图片In文档

绘画。LockAspectRatio=msoTrue

高度=图片。高度

宽度=图片。宽度

绘画。Height=CentimetersToPoints(比例/28.35 *高度)

绘画。Width=CentimetersToPoints(缩放比例/28.35 *宽度)

next

End If

A=真

MsgBox(“flash溢出提示：所有图片都按比例调整了”)

End Sub

然后关闭VB窗口

回到正文后，按alt F8键，选择名为“flash溢出_按比例放大所有图片”的宏，然后单击“执行”。

然后出现窗口

如果我们想把所有照片放大2倍，就用2；如果我们想缩小所有照片，就输入缩小的倍数。例如，要将照片减少一半，请输入0.5。

单击“确定”后请稍候

然后，当您等待弹出窗口时，系统会提示您完成全部缩放

然后发现所有的画都按比例放大了。

总结时间

利用好Vba宏批量操作文档，可以非常快速地提高工作效率，不容易出错，注意，发送个人信件，发送关键词“批量放大图”，就可以发送bas代码源文件！

如果认为有收获的话，请给予称赞、收集、评论、传达支持。你的支持对我很重要！(大卫亚设)。

闪光灯溢出，每天都可以使用新的get技术！