excel导入图片宏代码

Question

只要宏代码 按货号这列 把同名图片导入图片列 图片在的文件夹可以自己选择

Answer 1

将图片和本工作簿放在同一个文件夹中。在sheet1表中插入一个命令按钮，双击这个按钮将此代码复制进去。这里代码的格式为jpg格式，可以根据实际替换为你的格式。
Sub 图片导入()
Dim rng As Range, pah$, rng1 As Range, sp As Shape
pah = ThisWorkbook.Path & "\"
For Each sp In Sheet1.Shapes
If sp.Type = 11 Then
sp.Delete
End If
Next
For Each rng In Range("a2", [a2].End(xlDown))
Set rng1 = rng(1, 2)
Sheet1.Shapes.AddPicture pah & rng & ".jpg", 1, 1, rng1.Left, rng1.Top, rng1.Width, rng1.Height
Next
End Sub
然后用以下代码来自动导入图片。

Answer 2

发你的示例文件来