WORD文档中图片统一缩放

本文介绍如何使用VBA脚本SubzoomPic()在MicrosoftWord中,针对尺寸不一致的嵌入式图片(InlineShape)进行批量调整,确保所有图片宽度统一为4厘米,同时考虑了屏幕分辨率对单位转换的影响。

摘要生成于 C知道 ,由 DeepSeek-R1 满血版支持, 前往体验 >

对于WORD中有大量图片,但尺寸都不一致的情况,可以使用VBA将其统一设为相同的宽度。

Sub zoomPic()
    Dim pic As InlineShape    
    For Each pic In Selection.InlineShapes
        '4为以厘米为单位的图片尺寸值,缩放长或宽就行,另一个尺寸会自动等比缩放
		pic.Width = 4 * 50
    Next
End Sub

word中的嵌入式图片(一般我们均采用这种类型)在VBA中的类为InlineShape,属于InlineShapes集合,该集合直接隶属于Document对象(还可属于一个范围内的一个对象),注意这是与Shape对象不同的一类对象。

InlineShape对象可以是图片或其它嵌入式的对象,如果是图片,则其类型(type属性)应为3.

设置此类型图片的宽高时,在VBA中与显示器有关,22英寸显示屏,1680*1050分辩率,1单位换算成厘米的关系为:1厘米=28.33*单位。

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值