怎样用VBA代码根据表格内容插入图片？

1、首先在表格当中输入一些内容内容的名字和文件夹中图片的名字是一样的，

2、这些文件夹中把图片的名字改成和表格当中，单元格中填充的内容是一致的，

3、然后点击页面上方的vba编辑器，

4、然后我们点击选择插入一个模块，

5、在模块当中输入以下内容，

Sub 单元格插入图片()

 

On Error Resume Next        '出错继续执行后面的代码

 

Dim M As Range, fd, t

 

Set fd = Application.FileDialog(msoFileDialogFolderPicker)      '允许用户选择一个文件夹

 

If fd.Show = -1 Then

 

      t = fd.SelectedItems(1)

 

    Else

 

      Exit Sub

 

    End If

 

For Each M In Selection

 

  If Not IsEmpty(M) Then

 

    M.MergeArea.Select

 

    ML = M.MergeArea.Left + 20      '图片的顶部位置等于单元格的顶部向下20

 

    MT = M.MergeArea.Top + 20       '图片的左边位置等于单元格的左边向右20

 

    MW = M.MergeArea.Width - 40     '图片的宽度等于单元格的宽度减少-40

 

    MH = M.MergeArea.Height - 40    '图片的高度等于单元格的高度咸少-40

 

    ActiveSheet.Shapes.AddShape(msoShapeRectangle, ML, MT, MW, MH).Select

 

    Selection.ShapeRange.Fill.UserPicture t & "\" & M.Text & ".jpg"     '当前文件所在目录下以当前单元内容为名称的.jpg图片

 

   End If

 

Next

 

End Sub

6、点击页面左上角的运行代码按钮，

7、选择插入的图片所存放的文件夹，点击打开，

8、最后就可以看到图片，成功的插入到了每一个单元格当中，