批量处理和单个处理word图片大小和比例的宏(共4页).docx

精选优质文档-倾情为你奉上设定单个图片大小的宏：Sub 宏5()Selection.InlineShapes(1).LockAspectRatio = msoFalse 解除纵横比锁定Dim h!, w!h = Selection.InlineShapes(1).Heightw = Selection.InlineShapes(1).WidthSelection.InlineShapes(1).Height = 627 设置图片高度为 627pxSelection.InlineShapes(1).Width = 407 设置图片宽度 407pxEnd Sub设定单个图片比例的宏：Sub 宏3()Selection.InlineShapes(1).LockAspectRatio = msoFalse 解除纵横比锁定Dim h!, w!h = Selection.InlineShapes(1).Heightw = Selection.InlineShapes(1).WidthSelection.InlineShapes(1).Heigh