适应范围：word嵌入式杂志下载
宏代码如下：

Sub 更改图片大小()
Mywidth = 8.47
Myheigth = 7.78
For Each iShape In ActiveDocument.InlineShapes
iShape.Height = 28.345 * Myheigth
iShape.Width = 28.345 * Mywidth
Next iShape
End Sub