word宏：批量统一图片大小(比例缩放)

Subsetpicsize()'ÉèÖÃͼƬ´óСDimn'ͼƬ¸öÊýDimpicwidthDimpicheightOnErrorResumeNext'ºöÂÔ´íÎóForn=1ToActiveDocument.InlineShapes.Count'InlineShapesÀàÐÍͼpicheight=ActiveDocument.InlineShapes(n).Heightpicwidth=ActiveDocument.InlineShapes(n).WidthActiveDocument.InlineShapes(n).Height=picheight*0.8'ÉèÖø߶ÈΪ1.1±¶ActiveDocument.InlineShapes(n).Width=picwidth*0.8'ÉèÖÿí¶ÈΪ1.1±¶NextnForn=1ToActiveDocument.Shapes.Count'ShapesÀàÐÍͼƬpicheight=ActiveDocument.Shapes(n).Heightpicwidth=ActiveDocument.Shapes(n).WidthActiveDocument.Shapes(n).Height=picheight*0.8'ÉèÖø߶ÈΪ1.1±¶ActiveDocument.Shapes(n).Width=picwidth*0.8'ÉèÖÿí¶ÈΪ1.1±¶NextnEndSub