excel如何在多个表格中的批量插入图片

在一个工作簿中有多份不同简历的表格,我需要把照片用公式或者其他方式批量插入到各个表格的对应位置,求方法!

用VB代码解决,代码如下:
Sub 批量导入相片()
Dim i, myPath$
myPath = ThisWorkbook.Path & "\" '获取当前文件的路径
For i = 2 To 11
Range("C" & i).Select
ActiveSheet.Pictures.Insert(myPath & Range("A" & i) & ".jpg").Select
'在选中的位置插入图片
'myPath 相位的路径
'Range("A" & i) 相片的文件名,如果相片用B列的姓名命名也可以的
'要有相片路径+名称+后缀
Next i
End Sub

追问

加进模块运行后 显示:运行时错误'1004'不能获得pictures的insert的属性
怎么回事?

温馨提示:答案为网友推荐,仅供参考
第1个回答  2021-08-20

请看下具体操作:一眼就会批量导入图片到excel:

="<table><img src=""C:\Users\UFO\Desktop\"&A1&".png"" width=""100"" height=""50"">"

相似回答