怎样用word在A4纸上打印四张尺寸大小一样的图片?用windows图片

1.怎样用word在A4纸上打印四张尺寸大小一样的图片?用windows图片

按alt+F11。然后在project右键插入模块，然后粘贴

Sub Macro()

Mywidth = 4.13

Myheigth = 5.69

For Each iShape In ActiveDocument.InlineShapes

iShape.Height = 28.345 * Myheigth

iShape.Width = 28.345 * Mywidth

Next iShape

End Sub

再按F5，就行了。

【Mywidth = 4.13

Myheigth = 5.69这里的数字你自己改大小】