自动调整word文档中的图片大小及版式.docVIP

批量设置word 里图片的大小及版式的技巧 1.批量设置固定大小 工具-宏-新建 Sub setpicsize() 设置图片大小 Dim n 图片个数 On Error Resume Next 忽略错误 For n = 1 To ActiveDocument.Shapes.Count Shapes类型图片 ActiveDocument.Shapes(n).Height = 70 设置图片高度为 70px ActiveDocument.Shapes(n).Width = 80 设置图片宽度 80px Next n End Sub 运行即可 2.批量按比率缩小或放大 新建宏 Sub setpicsize() 设置图片大小 Dim n 图片个数 Dim picwidth Dim picheight On Error Resume Next 忽略错误 For n = 1 To ActiveDocument.InlineShapes.Count InlineShapes 类型图片 picheight = ActiveDocument.InlineShapes(n).Height picwidth = ActiveDocument.InlineShapes(n).Width ActiveDocument.InlineShapes(n).Height = picheight * 0.7 设置高度