操作方法
如何在word中将大小不一的图片快速设置成同样大小呢? 用一段代码就快速解决这个问题
将大小不一的图片插入至文档中 执行alt+F11进入宏编辑器
插入一个模块,将以下代码复制进去 Sub tupian()mywidth = 6.5myheight = 6.5For Each ishape In ActiveDocument.InlineShapesishape.Height = 28.345 * myheightishape.Width = 28.345 * mywidthNext ishapeEnd Sub