Step01：鼠標(biāo)依次單擊“開發(fā)工具”——“visual basic",打開如下圖所示的編輯窗口，單擊sheet1

step02: 輸入如下的VBA代碼：

Sub charutupian()

Dim rng, wj, i As Integer

w = ActiveCell.MergeArea.Width '獲取單元格寬度

h = ActiveCell.MergeArea.Height '獲取單元格高度

l = ActiveCell.Left '獲取單位格左側(cè)位置

t = ActiveCell.Top '獲取單位格上側(cè)位置

    With Application.FileDialog(msoFileDialogFilePicker)

     .Title = "選擇圖片"

    If .Show Then

        '獲取到路徑

         wj = .SelectedItems(1)

    End If

    End With

    i = Sheets("Sheet1").Cells(Rows.Count, 1).End(3).Row '確定表名為 Sheet1，如果不是需要更改

    Set rng = ActiveCell '設(shè)置位置到當(dāng)前單元格

    ActiveSheet.Shapes.AddPicture(wj, True, True, rng.Left, rng.Top, rng.Width, rng.Height).Placement = xlMoveAndSize

End Sub

step03: 關(guān)閉窗口，回到Excel中，鼠標(biāo)依次單擊”開發(fā)工具“——”插入“——”按鈕“，在工作區(qū)拖動(dòng)繪制，繪制后，如下圖所示，在“指定宏”對(duì)話框選擇代碼charutupian，然后單擊“確定”按鈕。

STEP04：調(diào)整表格行的高度與寬度，然后單擊"按鈕2"，在彈出”插入圖片“對(duì)話框，挑選合適的圖片后單擊插入按鈕，完成后效果如下圖所示，圖片會(huì)自動(dòng)調(diào)整大小使之符合單元格大小