简介:有时需要大量放大或缩小文档中的图片,但不能在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