Excel单元格内插入图片（VBA创建函数，根据图片名称批量插入） |
您所在的位置：网站首页 › excel怎么批量匹配图片内容 › 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 Sub4. 将Excel“开发工具”功能开启（文件-->选项-->自定义功能区-->开发工具打勾-->确定） 5. 插入表单控件（开发工具-->插入-->表单控件），鼠标操作创建“按钮”，弹框选择如下图。 确定并修改按钮名称为，“插入图片”。 完工，可以测试一下效果啦！ 插入图片显示大小由给定表格大小决定，可自行事先进行调节。 另，已经做了图片格式“jpg”or“png”判断，程序比较简单，可根据需要自行修改。 |
今日新闻 |
推荐新闻 |
| CopyRight 2018-2019 办公设备维修网 版权所有 豫ICP备15022753号-3 |