WORD文档中图片统一缩放

对于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*单位。