Office中国论坛/Access中国论坛

标题: 插入指定图片 [打印本页]

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

作者: roych 时间: 2016-3-28 22:51
以下代码适用于Excel 2007版本及以上（只跟软件有关，跟文件格式没关系）。

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

复制代码

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

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)