ExcelTip.Net留存知识帖 ---【注:附件之前被网盘供应商清空后,现已修复-现已修复-现已修复为本地下载!】
现在位置:首页 > 我的酷贴 > Excel VBA > 将WORD中插入的图片批量调整尺寸为50%

将WORD中插入的图片批量调整尺寸为50%

作者:绿色风 分类: 时间:2022-08-18 浏览:214
楼主
罗刚君
写书时常用到,插入的图片都需要缩小

  1. Sub 缩小50()
  2.        Application.ScreenUpdating = False
  3.     For Each i In ActiveDocument.InlineShapes
  4.         With i
  5.             .Height = .Height * 0.5
  6.             If .LockAspectRatio = msoFalse Then .Width = .Width * 0.5
  7.         End With
  8.     Next
  9.     Application.ScreenUpdating = True
  10. End Sub

2楼
biaotiger1
InlineShapes指的是嵌入式图片吧?
在word中,图片的处理好像比Excel更加复杂。
3楼
gouweicao78
这个图片缩小工具很实用,一般设置到word模板中,再做个快捷键或者点击按钮,就方便一次性把全部图片缩小。

免责声明

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

评论列表
sitemap