不用VBA也可以实现的。
1、先准备两张图片，放在两个单元格中备用，如将“图片1”放在sheet1中的A1，“图片2”放在A2（单元格的大小要比图片的边框要大，最小也是刚好）
2、打开菜单栏上的“插入”－“名称”－“定义”，在“在当前工作薄中的名称”输入“图片”，在下面的“引用位置”中输入：
=OFFSET(Sheet1!$A$1,IF(Sheet2!$A$1="",0,1),0,1,1) 点“确定退出。
3、在另一个表（如：sheet2）打开菜单栏上的“视图”－“工具栏”－“控件工具箱”，在弹出的工具条中选择“文本框”，在A2位置画一个与图片尺寸相等的文本框，选中文本框后在编辑栏将：=EMBED("Forms.TextBox.1","") 改为：=图片 回车后就可以实现要求了。
邮箱给我，或者把你的文档发给来，我给你做好！
楼主在baidu上搜索
excel 图片索引
即可得到答案
VBA,等楼下出代码!
祝你成功!
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024