不用公式和VBA表格中顯示批量圖片

馬震安

首先，查看一下文件夾中的圖片文件名與需要在表中顯示的圖片同工作表的哪個字段一致（如在本例中，圖片文件是以工作表中的身份證號命名的），在工作表中以該字段為關鍵字對數據進行排序（升序或降序均可以）;切換到“插入”選項卡，點擊“圖片一此設備”，在彈出的窗口中打開存放圖片的文件夾，在此文件夾的空白處右擊，點擊“排序方式”，選擇“名稱”、“遞增”（排序方式要與工作表中關鍵字的排序方式一致）（圖1）。選中所有圖片，插入到Excel工作表中。

接下來，在工作表中選中位于最底層的第1張圖片，將它拖放到第1個需要插入圖片的單元格中，根據需要調整好它的大小;選中第1張圖片，切換到“圖片工具→格式”選項卡，記下這個圖片的高度、寬度，然后按下Ctrl+A選定所有圖片，在圖片選取上單擊鼠標右鍵，選擇“設置對象格式”，在彈出的“設置圖片格式”面板中選擇“大小與屬性”，去掉“鎖定縱橫比”前面的勾選，在“高度”、“寬度”處輸入第1個圖片的尺寸數據。這樣所有圖片的大小便都調整一致了（圖2）。

隨后，選中最上面的一張圖片，將它拖放到最后一個需要插入圖片的相應單元格中，按下Ctrl+A選定所有圖片，在“圖片工具→格式”選項卡中，點擊“對齊→左對齊、縱向分布”。這樣，圖片就插入到相應的單元格中了（圖3）。

最后，我們再將數據表恢復為原先的正常順序即可。選擇“序號”字段進行升序排序，這樣，圖片也會跟隨相應的記錄進行變動（圖4）。