欢迎来到天天文库
浏览记录
ID:38267269
大小:735.35 KB
页数:5页
时间:2019-05-25
《怎样将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进入以下界面:最后一步:点击运行菜单里面第一项,活着直接点击里面的类似播放的按钮。之后会出现以下提示,说明你的操作完成了,恭喜你,所有的图片都和第一张图片的大小一样了
此文档下载收益归作者所有