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

发布网友发布时间：2022-04-24 05:32

共2个回答

热心网友时间：2022-04-17 15:02

用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的属性
怎么回事？

热心网友时间：2022-04-17 16:20

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

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

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com