插入指定图片

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"这部分即可。