如何在excel单元格中插入图片并使单元格与图片大小适合

插入图片后，右键图片--属性--勾选“大小随单元格变化” 
列 ：excel表格，a列是产品图片，b列是货号，能否在b列输入货号（如123）的同时把放在e:\tmp目录下的相应货号的jpg图片调出来，且大小与a列单元格完全相符。
用vba，按下alt+f11,菜单:插入-模块,复制下面代码至代码框.按f5即可
sub addpicture()

dim firstrow, lastrow as integer, filetype as string
firstrow = sheet1.usedrange.row
lastrow = firstrow + sheet1.usedrange.rows.count - 1
filetype = inputbox("输入你的图片的后缀名", "输入图片格式", "jpg")
for i = firstrow to lastrow
numb = cells(i, 2).value
with activesheet
.pictures.insert("d:\tmp\" & numb & "." & filetype).select
set target = .cells(i, 1)
end with
with selection
.top = target.top + 1
.left = target.left + 1
.width = target.width - 1
.height = target.height - 1
end with
next i
end sub

说明，图片文件夹 图片文件名与输入货号一致。