6、 '每行图片数量 11. xWidth = 202 '图片水平间隔,即水平相邻的图片左上角间隔 12. xHeight = 152 '图片垂直间隔 13. 14. Dim x, y 15. x = 0 16. y = 0 17. For i = 1 To picN 18. ActiveSheet.Pictures.Insert(picPath & i & fileExt).Select 19. Selection.ShapeRange.Sca
7、leWidth picScale / 100, msoFalse, msoScaleFromTopLeft 20. Selection.ShapeRange.ScaleHeight picScale / 100, msoFalse, msoScaleFromTopLeft 21. Selection.ShapeRange.IncrementLeft xWidth * x 22. Selection.ShapeRange.IncrementTop xHeight * y 23. If i Mod
8、perPic = 0 Then 24. x = 0 25. y = y + 1 26. Else 27. x = x + 1 28. End If 29. Next 30.End Sub