對應款號插入圖片的操作
注意：單元格里的名字和圖片必須一致 （檢查圖片的畫素和大小，圖片太大會造成機器卡死）了。關於程式碼部分你只需要知道這個程式碼是幹什麼用的就可以了，相信我寫的已經夠詳細了。如果大家在操作過程中發現問題，可以給我留言或者聯絡我，我會修正的。
對應款號插入圖片一種是以批註的形式出現，這種方式更多的作為報表的輔助形式出現，一種是直接顯示在表格內，這種是做商品目錄，訂單等識別性檔案。
這種操作批次大，一個一個插入很費時間，使用程式碼就很簡單，當然還有一些工具箱可以支援圖片匯入這裡就不介紹了。
程式碼很難懂，所以我的原則就是會用就行，就不去了解程式碼原理了。
下面開始進行操作演示，首先你要選擇插入圖片的方式，這裡以插入批註為例：
開啟檔案 選中要插入圖片的區域，提示：不要直接選中列，儘量選中需要的區域否則執行候會很長時間，嚴重的會宕機，因為語句會判斷每一個空白單元格是否需要匯入圖片。
在工作簿的標籤上 單擊右鍵 檢視程式碼
複製對應的程式碼到開啟的VB編輯器裡面（程式碼在本文的下半部分）
點選綠色箭頭 或者F5
在開啟的介面中選擇圖片存在的目錄
在彈出的寬度和高度視窗中輸入適合的尺寸
看看需要的效果出現了 ，如果大小不合適再重複一次上面的操作，注意更改圖片大小直到合適為止。
最後一件事就是刪除程式碼然後儲存，提示：不清除程式碼並儲存以後別人開啟檔案後會提示有宏存在，很多機器都是禁用宏的，或造成檔案打不開或者圖片顯示不了等問題出現
第一種：插入批註
插入批註圖片（可以選擇存放資料夾，可以設定圖片大小）
Sub pictopz（）
Dim cell As Range， fd， t， w As Byte， h As Byte
Set fso = CreateObject（“scripting。filesystemobject”）
Selection。ClearComments
If Selection（1） = “” Then MsgBox “不能選擇空白區。”， 64， “提示”： Exit Sub
On Error GoTo err
Set fd = Application。FileDialog（msoFileDialogFolderPicker） ‘允許使用者選擇一個資料夾
If fd。Show = -1 Then
t = fd。SelectedItems（1） ’選擇之後就記錄這個資料夾名稱
Else
Exit Sub ‘否則就退出程式
End If
w = Application。InputBox（“您希望插入的圖片顯示多寬？” & Chr（10） & “Excel預設寬度為3。39，你可以輸入1-15之間的資料。” & Chr（10） & “小於1時當做1計算。”， “確認寬度”， 3。39， ， ， ， ， 2）
h = Application。InputBox（“您希望插入的圖片顯示多高？” & Chr（10） & “Excel預設高度為2。09，你可以輸入1-15之間的資料。” & Chr（10） & “小於1時當做1計算。”， “確認高度”， 2。09， ， ， ， ， 2）
If w < 1 Or h < 1 Then w = 3。39： h = 2。09
If w > 15 Or h > 15 Then MsgBox “原則上你的圖片可以顯示這麼大，” & Chr（10） & “不過有必要嗎？請重新輸入1-15之間的數”， 64， “提示”： Exit Sub
For Each cell In Selection
pics = t & “\” & cell。Text & “。jpg”
If fso。fileexists（pics） Then
With cell。AddComment
。Visible = True
。Text Text：=“”
。Shape。Select True
With Selection。ShapeRange
。Fill。UserPicture pics
。ScaleWidth w / 3， msoFalse， msoScaleFromTopLeft
。ScaleHeight h / 2。09， msoFalse， msoScaleFromTopLeft
End With
cell。Offset（1， 0）。Select
。Visible = False
End With
end if
Next
Exit Sub
err：
ActiveCell。ClearComments
MsgBox “未找到同名的JPG圖片！”， 64， “提示”
End Sub
