【视频教程】Excel中批量插入图片 调整大小位置VBA一键完成 插入照片

这是一个淘宝卖家在我群里提的需求,就是他有一个文件里都是产品图片,图片的名字就是产品ID,现在需要在Excel导入产品ID同时插入图片,他一直手工做,当然就很费时间了,我写了个一个小代码,实现了VBA代码批量插入文件夹内图片和调整大小位置,一键完成 详解文末视频讲解

关键:插入图片,插入照片,不同的工作表插入照片

2017-2-20更新:

有朋友到我群里说 插图后的文件单独发给别人图片不显示,那是当然 因为如果采用图片保存在文档的形式,图多了文档会特别大,打开保存都会特别慢 所以我采取的是连接形式,这样需要和图片文件夹一起发别人,但是他说只想给人家一个文档带图的,那好吧 我改了一下代码

把插入函数的改为下面代码 就可以把图片直接插入到文档中 这样 即使文件夹图片删除了图片还是会存在表格中

代码如下

Function 插入2(rg As Range) '图片存在文档
    'Application.Volatile
    Dim MyFile As String, MyPath As String
    MyPath = ThisWorkbook.Path & "\"
    MyFile = Trim(rg.Value) & ".jpg"
    If Dir(MyPath & MyFile) = "" Then Exit Function
    'ActiveSheet.Pictures.Insert(MyPath & MyFile).Select    '插入图片
    T = rg.Offset(0, -1).Top + 1
    L = rg.Offset(0, -1).Left
    W = rg.Offset(0, -1).Width
    H = rg.Offset(0, -1).Height - 3
    ActiveSheet.Shapes.AddPicture MyPath & MyFile, msoFalse, msoTrue, L, T, W, H
End Function