如何将文档中所有插入的图片调整为80%大小

作者：绿色风分类：时间：2022-08-18 浏览：294

楼主 zlxtl	Q:如何将WORD文档中所有插入的图片调整为80%大小? A:遍历对象InlineShapes,将其高与宽恢复100%,然后调整高度与宽度为80% Sub 缩放为百分之五十() Application.ScreenUpdating = False For Each SP In ActiveDocument.InlineShapes '遍历所有图片 With SP '引用图片 .ScaleHeight = 100 '先恢复100% .ScaleWidth = 100 '先恢复100% .Height = .Height * 0.8 '高度调整为80% '如果没有锁定纵横比,则宽度也调整为80% If .LockAspectRatio = msoFalse Then .Width = .Width * 0.58 End With Next Application.ScreenUpdating = True End Sub
2楼 xyf2210	好东西
3楼 0Mouse	代码虽短，但考虑很周全！
4楼 0Mouse	额，是不是这样就可以了？！ Sub 将文档中所有嵌入式图片的尺寸批量调整为[b]原始大小[/b]的百分之八十() Application.ScreenUpdating = False '关闭屏幕更新 Dim pic As InlineShape For Each pic In ActiveDocument.InlineShapes '遍历文档中的所有嵌入式图片 With pic '引用图片 .ScaleHeight = 80 .ScaleWidth = 80 End With Next Application.ScreenUpdating = True '启用屏幕更新 End Sub

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表