VBA可以做到

工作簿標籤上右鍵選擇檢視程式碼

貼上以下程式碼並儲存

Private Sub Worksheet_Change(ByVal Target As Range)

Dim rg As Range

Dim ad As String

Dim tp As String

Dim w, h As Long

ad = "D:\圖片\"

For Each rg In Target

If rg.Column = 1 And rg.Value "" Then

tp = ad & rg.Value & ".jpg"

rg.Offset(0, 1).Select

ActiveSheet.Pictures.Insert(tp).Select

With Selection

w = rg.Offset(0, 1).Width

h = rg.Offset(0, 1).Height

Debug.Print w, h

.ShapeRange.LockAspectRatio = msoFalse

.ShapeRange.Width = w

.ShapeRange.Height = h

.Placement = xlMoveAndSize

.PrintObject = True

End With

End If

Next rg

End Sub

程式碼只適用於JPG格式的圖片，如果是其他格式，可以手動把程式碼裡的JPG改成其他格式試試

開啟資料夾中的圖片，方法是: 1.最好圖片和你的文件放在同一個資料夾裡，這樣便於編輯和尋找 2、檢視圖片的屬性，將其地址複製CTRL+C 3.在單元格中輸入你要輸入的文字 4.滑鼠右鍵-選擇超連結 5.然後在地址框中 選擇CTRL+V 確定