WORD文档中图片统一缩放

hohoyu

于 2023-08-29 10:17:56 发布

阅读量264

点赞数

分类专栏：软件使用与二次开发文章标签： word

本文链接：https://blog.csdn.net/hohoyu/article/details/132555779

版权

软件使用与二次开发专栏收录该内容

44 篇文章

订阅专栏

本文介绍如何使用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*单位。