博看网杂志下载时批量更改图片大小

适应范围：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