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