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

1. 在桌面创建素材

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

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

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

Sub 插入图形应用()For Each shap In Sheet1.ShapesIf shap.Type <> 8 Then shap.DeleteNext shapFor Each Rng In Range([a2], Cells(Application.CountA(Columns(1)) , 1))
Dim i As Stringi = ""
If Len(Dir(ThisWorkbook.Path & "\图库\" & Rng & ".jpg")) Theni = ThisWorkbook.Path & "\图库\" & Rng & ".jpg"ElseIf Len(Dir(ThisWorkbook.Path & "\图库\" & Cells(j, 1) & ".png")) Then
i = ThisWorkbook.Path & "\图库\" & Rng & ".png"End IfSet rngs = Cells(Rng.Row, 3)Sheet1.Shapes.AddPicture i, True, True, rngs.Left, rngs.Top, rngs.Width, rngs.HeightNextEnd Sub

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

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

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

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

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

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

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

为何excel中数据无法计算机,excel表格内数据为何无法计算机-为什么EXCEL单元格内的数字不能运算...
我的电脑为什么不能把一个excel表中数据导入另一个... 在Excel中打不上去可能是由于数出了位数限制,对应及解决方下: 1.系统默认单元格中输入数字格式为"常规",能完全显示 ...
如何才能通过设置将excel单元格内的14位数字转换为日期格式
如何才能通过设置将excel单元格内的14位数字转换为日期格式 (如20200226230300转换为2010-06-02-10-46-36) ? 自定义格式 0000-00-00-00-00-00 ...
EXCEL 单元格内换行内容改成两行单元格内容
EXCEL 单元格内换行内容改成两行单元格内容需求: 绿色框框内C1 的内容更换为C2和C3的两行单元格 C2 行内容=LEFT(C1,FIND(CHAR(10),C1)-1) C3 行内容=MI ...
matlab中设置数据长度,excel表格长宽设置/如何检查excel单元格内数字长度
EXCEL用函数提取不同字符串长度的特定数据? 直接输入公式"=left(right(a1,6),2)" 关于此公式中用到的"Left"和"right ...
Excel单元格内怎么回车换行
程序代码园发文地址:Excel单元格内怎么回车换行-程序代码园小说,Java,HTML,Java小工具,程序代码园,http://www.byqws.com/ ,Excel单元格内怎么回车换行http ...
Excel单元格使用xlwings包调用python函数的公式，截取子网页（标题）的试验问题求助CSDN
Excel单元格使用xlwings包调用python函数的公式,截取子网页(标题)的试验问题求助CSDN Python 环境:python3.7 的conda上的py3环境 Excel 2010 E ...
MySQL创建函数和存储过程，批量插入大数据
工作中使用Jmeter压测时,需要大数据量,可以使用MySQL创建函数和存储过程,批量插入大数据右击新建函数,创建过程完成后自动创建在body部分写入过程: DECLARE id INT DEF ...
Excel - 单元格内插入图片，并随单元格变动
文章目录 1)插入图片放到单元格内 2)选择大小和属性 a) 不随单元格改变位置和大小效果如下: b) 随单元格改变位置,但不改变大小效果如下: 当插入图片后,有时发现在图片上方插入几行后,图片 ...
VBA Excel 单元格内多行内容的文字处理方法
VBA Excel 实现单元格内多行内容的文字处理方法在Excel中有很多的函数可以作用于单元格,但是其对单元格整体进行操作,因此单元格数据最好只有一行,这样Excel函数才能运行正确.但是有时候一 ...
excel单元格内插入当前日期，时间
使用以下快捷键可以快速插入当前日期或时间: Ctrl+:(分号)在单元格内插入当前日期 Ctrl+Shift+:(分号)插入当前时间, 按Ctrl+:(分号)以后输入一个空格,再按Ctrl+Shift ...

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

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

最新文章

热门文章