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

共有 0 条评论