Excel单元格内插入图片（VBA创建函数，根据图片名称批量插入）

1. 在桌面创建素材

文件夹“图库”存放要插入的图片，Excel“花”为待插入的Excel表。

2. “花”表格内容布局如下

 

3. 创建VBA函数（sheet1-->右键-->查看代码-->将如下代码复制进来-->保存）

Sub 插入图形应用()

For Each shap In Sheet1.Shapes

If shap.Type <> 8 Then shap.Delete

Next shap

For Each Rng In Range([a2], Cells(Application.CountA(Columns(1)) , 1))
Dim i As String
            
i = ""
If Len(Dir(ThisWorkbook.Path & "\图库\" & Rng & ".jpg")) Then

i = ThisWorkbook.Path & "\图库\" & Rng & ".jpg"

ElseIf Len(Dir(ThisWorkbook.Path & "\图库\" & Cells(j, 1) & ".png")) Then
i = ThisWorkbook.Path & "\图库\" & Rng & ".png"

End If

Set rngs = Cells(Rng.Row, 3)

Sheet1.Shapes.AddPicture i, True, True, rngs.Left, rngs.Top, rngs.Width, rngs.Height

Next

End Sub

4. 将Excel“开发工具”功能开启（文件-->选项-->自定义功能区-->开发工具打勾-->确定）

5. 插入表单控件（开发工具-->插入-->表单控件），鼠标操作创建“按钮”，弹框选择如下图。

确定并修改按钮名称为，“插入图片”。

完工，可以测试一下效果啦！

插入图片显示大小由给定表格大小决定，可自行事先进行调节。

另，已经做了图片格式“jpg”or“png”判断，程序比较简单，可根据需要自行修改。