Question

word中如何同时设置多个图片格式

Answer 1

用VBA 完成。
如果文档中的图片都是嵌入式的，设计好格式的图片是文档中的第一张，如果希望其他的图
片宽与高与第一张相同，那可以在VBA 编辑器建立下列代码执行一下即可：
Sub setpic()
w = ActiveDocument.InlineShapes(1).Width
h = ActiveDocument.InlineShapes(1).Height
For i = 2 To ActiveDocument.InlineShapes.Count
ActiveDocument.InlineShapes(i).Width = w
ActiveDocument.InlineShapes(i).Height = hNext iMsgBox "OK!"End Sub如果还希望调整其他格式，可修改上述模块即可。（2）a 图片设置格式后，依次选中其余图片后按F4（重复上一操作）（3）先设置一个统一的标准，然后全选其他要更改的图片，Ctrl Y 即可 用鼠标双击图片，就会
弹出来一个“设置图片格式”对话框口，你在左上角“大小”那个（4）用宏可以帮你解决：Sub 宏1()Dim iOn Error Resume Next
For i = 1 To ActiveDocument.InlineShapes.Count
ActiveDocument.InlineShapes(i).Width = 200
其中200 是宽度，150 是高度，把这两个修改成你需要的值。