下面是步骤流程
Step-01:打开一张空白的excel表格，点击excel上面的插入→插图→图片→此设备。在
在弹出的设备对话框中找到我们放图片的文件夹，点进去后全选所有需要打印的图片，点击插入。这样就一次性的将所有需要打印的图片都放进excel表格中了。
Step-02:
Sub 排列图片()Dim i As Long, j As Long, mychart As Shape, ws As WorksheetSet ws = Worksheets("sheet1")For Each Shape In ws.ShapesShape.Top = Range("a1").Top + jShape.Left = Range("a1").Leftj = Shape.Height + jNext ShapeEnd Sub
复制进去后点击代码窗口上方的三角形运行代码即可。
代码运行后所有的图片都已然按照从上到下的顺序排列好
Step-03:点击【分页预览】，适当调整打印区域。就可以一次性将图片全部打印出来了。
分享过几次用VBA代码解决工作中的问题的几个案例。新手不需要理解代码的含义，只需要懂得复制粘贴即可，这点才是最重要的，但愿你能体会~
来源：https://mp.weixin.qq.com/s/o_vNPABn8MFtAFrKM7_9Vg
