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