Word统一调整图片适应页面大小.docxVIP

STYLEREF标题1Word统一调整图片适应页面大小

PAGE

PAGE1

Word统一调整图片适应页面大小

第一步：打开你的Word文档；

第二步：按Alt+F11打开VBA编辑器；

第三步：右键左边你的文档名→插入→模块；

第四步：把下面代码完整粘贴进去：

Sub图片自适应页面()

DimshpAsInlineShape

ForEachshpInActiveDocument.InlineShapes

Ifshp.Type=wdInlineShapePictureThen

shp.LockAspectRatio=msoTrue

shp.Width=ActiveDocument.PageSetup.TextColumns.Width

EndIf

Next

EndSub

第五步：按F5运行

第六步：关闭VBA，回到Word。