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

第一步：插入扫描的所有图片，如下图，都没有铺满窗口

第二步：随便选择一张图片，将其拉伸铺满全窗口。本次选择的是第一张，如下图

第三步：按住alt键和f11键进入下面的界面

第四步：点击菜单栏的插入-模块，然后在里面粘贴以下内容Sub按选择的图片样本设置图片大小()

Dim s

Dim r,SelectShape As Boolean

If Selection.InlineShapes.Count=1Then SelectShape=True Else If

Selection.ShapeRange.Count=1Then SelectShape=True

If SelectShape And Selection.InlineShapes.Count=1Then

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(https://www.360docs.net/doc/e05486906.html,,"Picture")>0Then

s.Height=r(0):s.Width=r(1)

End If

Next s

MsgBox"已经完成对图片大小的设置"

Else

MsgBox"没有选定样本图片"

End If

End Sub

进入以下界面：

里面的类似播放的

图片都和第一张图片的大小一样了