答方法/步驟

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

&#39;新增圖片

Set p = objSheet.Shapes.AddPicture(PictureFileName, 0, 1, 0, 0, -1, -1)

&#39; 定位，如果根據單元格，最後兩個引數設定為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