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

馬震安

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

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

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

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