1、你遇到的问题是不是这样：无法显示连接的图像。该文件可能已被移动、重命名或删除。请验证该连接是否指向正确的文件和位置。
2、据了解，该问题自EXCLE2010(含)之后就出现这个问题，意味着你用的老版本的excel不会出现这个问题。解决方法是将Pictures.Insert替换为Shapes.AddPicture可解决问题。
3、我是在别人的方法基础上修改替换为Shapes.AddPicture的，解决了通过单元格定位图片插入位置，以及如何原始比例插入图片等问题：
4、首先打开Excel之后，按快捷键：Alt+F11，或者在顶部菜单栏选择“开发工具”→点击“Visual Basic”打开vba编辑器：
5、在左侧工程栏目下，找到刚才的工作簿，点击右键“插入”→“模块”：
6、 插入以下代码：
Sub InsertPicture(objSheet As Worksheet, PictureFileName As String, TargetCell As Range, _ CenterH As Boolean, CenterV As Boolean)
Dim p As Object, t As Double, l As Double, w As Double, h As Double
If TypeName(objSheet) <> "Worksheet" Then Exit Sub
If Dir(PictureFileName) = "" Then Exit Sub
'添加图片
Set p = objSheet.Shapes.AddPicture(PictureFileName, 0, 1, 0, 0, -1, -1)
' 定位，如果根据单元格，最后两个参数设置为false
With TargetCell
t = .Top
l = .Left
If CenterH Then
w = .Offset(0, 1).Left - .Left
l = l + w / 2 - p.Width / 2
If l < 1 Then l = 1
End If
If CenterV Then
h = .Offset(1, 0).Top - .Top
t = t + h / 2 - p.Height / 2
If t < 1 Then t = 1
End If
End With
With p
.Top = t
.Left = l
End With
Set p = Nothing
End Sub
7、 排版不易，请珍惜，下面给一个使用该方法的列子：
InsertPicture ActiveSheet, "d:\a.png", Cells(2, 2), False, False
8、完成。
