简介:有时需要大量放大或缩小文档中的图片,但不能在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技术!
1.《【图片小插入word怎么放大】Word是一种按比例缩放所有图片的方法》援引自互联网,旨在传递更多网络信息知识,仅代表作者本人观点,与本网站无关,侵删请联系页脚下方联系方式。
2.《【图片小插入word怎么放大】Word是一种按比例缩放所有图片的方法》仅供读者参考,本网站未对该内容进行证实,对其原创性、真实性、完整性、及时性不作任何保证。
3.文章转载时请保留本站内容来源地址,https://www.lu-xu.com/keji/2519272.html