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

第一步：插入扫描的所有图片，如下图，都没有铺满窗口 第二步：随便选择一张图片，将其拉伸铺满全窗口。本次选择的是第 一张，如下图 alt f11 alt f11 第三步：按住aalltt键和ff1111键进入下面的界面 第四步：点击菜单栏的插入--模块，然后在里面粘贴以下内容-- Sub 按选择的图片样本设置图片大小() Dim s Dim r, SelectShape As Boolean If Selection.InlineShapes.Count = 1 Then SelectShape = True Else If Selection.ShapeRange.Count = 1 Then SelectShape = True If SelectShape And Selection.InlineShapes.Count = 1 Then Set s = Selection.InlineShapes(1) r = Array(s.Height, s.Width) ElseIf SelectShape Then Set s = Selection.ShapeRange(1) r = Array(s.Height, s.Width) End If If SelectShape Then For Each s In ActiveDocument.InlineShapes s.Height = r(0): s.Width = r(1) Next s For Each s In ActiveDocument.Shapes If InStr(s.Name, Picture) 0 Then s.Height = r(0): s.Width = r(1) End If Next s MsgBox 已经完成对图片大小的设置 Else MsgBox 没有选定样本图片 End If End Sub 进入以下界面： 最后一步：点击运行菜单里面第一项，活着直接点击 里面的类似播放的 按钮。之后会出现以下提示，说明你的操作完成了，恭喜你，所有的 图片都和第一张图片的大小一样了