【自动批量贴图】小程序
ExcelVBA程序，自动化的贴图小程序，可以自动批量在Excel表格单元格中插入图片，并且自动适应单元格的大小。贴图后可以根据条件进行图片筛选。如果需要支持图片排序，需要修改部分代码。需要启用宏，适用2003～2010版。
代码如下：
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 | Sub addpic() i = 2 Do While Range("A" & i) <> "" Range("B" & i).Select Set mypic = ActiveSheet.Pictures.Insert(ThisWorkbook.Path & "" & Range("A" & i) & ".jpg") With mypic .ShapeRange.LockAspectRatio = msoFalse .Top = Range("B" & i).Top .Left = Range("B" & i).Left .Height = Range("B" & i).Height '如果要支持排序，可改为 .Height = Range("B" & i).Height - 1 .Width = Range("B" & i).Width '如果要支持排序，可改为 .Width = Range("B" & i).Width - 1 .Placement = xlMoveAndSize End With i = i + 1 Loop Set mypic = Nothing End Sub |
有条件的可以自己改造更适合自身情况的代码。
程序下载：
华为网盘下载：http://dl.dbank.com/s0tebaam8u
本地下载：批量贴图工具 (1601)
