怎样将word里面的所有图片铺满

《怎样将word里面的所有图片铺满》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、第一步：插入扫描的所有图片，如下图，都没有铺满窗口第二步：随便选择一张图片，将其拉伸铺满全窗口。本次选择的是第一张，如下图第三步：按住alt键和f11键进入下面的界面第四步：点击菜单栏的插入-模块，然后在里面粘贴以下内容Sub按选择的图片样本设置图片大小()DimsDimr,SelectShapeAsBooleanIfSelection.InlineShapes.Count=1ThenSelectShape=TrueElseIfSelection.ShapeRange.Count=1ThenSelectShape=Tr

2、ueIfSelectShapeAndSelection.InlineShapes.Count=1ThenSets=Selection.InlineShapes(1)r=Array(s.Height,s.Width)ElseIfSelectShapeThenSets=Selection.ShapeRange(1)r=Array(s.Height,s.Width)EndIfIfSelectShapeThenForEachsInActiveDocument.InlineShapess.Height=r(0):s.Width=

3、r(1)NextsForEachsInActiveDocument.ShapesIfInStr(s.Name,"Picture")>0Thens.Height=r(0):s.Width=r(1)EndIfNextsMsgBox"已经完成对图片大小的设置"ElseMsgBox"没有选定样本图片"EndIfEndSub进入以下界面：最后一步：点击运行菜单里面第一项，活着直接点击里面的类似播放的按钮。之后会出现以下提示，说明你的操作完成了，恭喜你，所有的图片都和第一张图片的大小一样了