luda
简介：在某些情况下，文档中的图片需要大量放大或缩小，但在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；如果我们想缩小所有照片，请输入缩小的倍数。例如，要将照片减少一半，请输入0.5
点击确认后请稍等
然后，当您等待弹出窗口时，系统会提示您完成全部缩放
然后发现所有的画都按比例放大了。
汇总时间
利用好Vba宏批量操作文档，可以非常快速地提高工作效率，不容易出错，注意，发送个人信件，发送关键词“批量放大图”，就可以发送bas代码源文件！
如果认为有收获，请称赞、收集、评论、转发支持。你的支持对我很重要！
闪光灯溢出，每天都可以使用新的get技术！