插入指定图片

shindo8888

各位老师好，我在文件夹中存储了以发票号命名的图片，现在想在工作表中实现， 按 A4 单元格输入发票号后，通过按钮实现，在 I5 单元格插入对应编号的图片 ，不知道该如何写，麻烦大家帮忙指教

roych

以下代码适用于Excel 2007版本及以上（只跟软件有关，跟文件格式没关系）。

1. Private Sub CommandButton1_Click()
   
2.     Sheet3.Shapes.AddPicture ThisWorkbook.Path & "" & Sheet3.Range("A4") & ".bmp", _
   
3.                             msoFalse, msoTrue, Sheet3.Range("J7").Left, _
   
4.                             Sheet3.Range("J7").Top, 140, 115
   
5. End Sub
   

复制代码

如果使用的是2003版本的Excel，请参考：
http://www.office-cn.net/thread-96744-1-1.html
相关代码。大体是修改 activesheet.pictures.insert ThisWorkbook.Path & "\" & Sheet3.Range("A4") & ".bmp"这部分即可。