Question

如何用VB向EXCEL单元格中插入图片

如图，相关图片放在和EXCEL表格中的“图片”子文件夹中，如何用VB让与B2同名的照片显示在E2:E6的贴照片处的单元格中，若没对应照片时E2:E6中提示“没有 李四 的图片”。
当B2输入不同姓名时，（E2:E6)就显示相应姓名的图片。
单元格（E2:E6)大小已固定，插入的图片要和单元格（E2:E6)大小一样

Answer 1

Sheet1. Range("H4").Select
Sheet1.Pictures.Insert("D:\vb\ceshiwenjian\1.bmp").Select
打开excel表格，利用录制宏，就可以找到你要的代码。
ActiveSheet.Pictures.Insert("D:\vb\ceshiwenjian\1.bmp").Select
Selection.ShapeRange.IncrementLeft 181.5
Selection.ShapeRange.IncrementTop 23.25

希望后面的人少走弯路，其中的ActiveSheet为当前活跃的表。

Answer 2

如果你知道图片的Name
可以,如名称是"Picture 1"
xlSheet.Shapes("Picture 1").delete
如果不知道名称,知道在单元格的位置,譬如顶点位置在$B$3
可以循环判断后删除
For Each P In xlSheet.Shapes
If P.Name Like "Picture*" and P.TopLeftCell.Address="$B$3" Then P.Delete
Next

追问

与B2同名的照片，我自己存的照片，B2是什么名，照片就是什么名。并且不是删除，是要把与B2同名的照片，插入到（E2:E6)单元格中。并需要完整的代码加注释，谢谢！

Answer 3

这个效果？