【文件属性】：
文件名称：EXCEL图片插入
文件大小：40KB
文件格式：XLS
更新时间：2016-10-04 04:35:59
excel
具体效果见附件（打开文件后运行“插入图片”宏），宏代码如下：
Option Explicit
Sub 插入图片()
On Error Resume Next '设置错误处理
Application.ScreenUpdating = False '关闭屏幕刷新
Dim rngTemp As Range, k As Range, picPath$, picTemp As Picture
'设定图片名称所在单元格区域
Set rngTemp = Application.InputBox("选择图片名称所在单元格区域：", "选择单元格", Type:=8)
For Each k In rngTemp '循环插入图片
k.Offset(0, 1).Select '选择插入图片的位置
ActiveSheet.Pictures(k & k.Row).Delete '删除单元格中原来的图片
picPath = ThisWorkbook.Path & "\" & Trim(k) & ".jpg" '定义插入图片的地址
Set picTemp = ActiveSheet.Pictures.Insert(picPath) '插入图片
picTemp.Name = k & k.Row '设定所插入图片的名称
picTemp.Placement = xlMoveAndSize '设置图片可以随单元格的变动而改变大小和位置
With picTemp.ShapeRange
.LockAspectRatio = msoFalse '取消图片纵横比锁定
.Height = Selection.Height '设置所插入图片的高度与单元格的高度相等
.Width = Selection.Width '设置所插入图片的宽度与单元格的宽度相等
End With
Set picTemp = Nothing '重置图片对象
Next
Application.ScreenUpdating = True '打开屏幕刷新
End Sub