首頁 > 網際網路

Excel:[4]參照可變影象

2019-12-06 00:10:39

在Excel插入一張圖片,這是很容易的事情。如果要根據內容的變化來參照圖片,就不太好實現啦。但是如果明白其中的道理,也是一件非常簡單不過的事情了,下面就讓我用範例來給大家做個展示,學會參照圖片,將給以後的工作帶來方便,還可以讓你在同事中脫穎而出……

1

建立範例環境:第一,Excel之可變圖片檔案夾中,建立一個名叫「頭像」的檔案夾(用來存放頭像圖片),建立一個名叫「Excel之可變圖片」的excel工作簿;第二,頭像檔案夾中,存放範例頭像圖片,「Excel之可變圖片」excel工作簿,建立「檔案彙總」和「檔案查詢」工作表;




2

連結資料庫,插入「影象框」和編輯事件程式碼:第一,以「姓名」為查詢物件參照資料,使用「=VLOOKUP($B$3,檔案彙總!$A:$R,"該資料在檔案彙總的列標",FALSE)」參照「檔案彙總」表的資料;第二,在「控制元件工具箱」點選「影象」控制元件,在照片單元格新增一個「圖片框」用來存放可變圖片;第三,右擊「圖片框」——「檢視程式碼」,選擇「worksheet」和「change」事件,錄入程式碼:

Private Sub Worksheet_Change(ByVal Target As Range)

If Dir(ThisWorkbook.Path & "頭像" & Cells(3, 2).Value & ".jpg") <> "" Then

    Image1.Picture = LoadPicture(ThisWorkbook.Path & "頭像" & Cells(3, 2).Value & ".jpg")

Else

    Image1.Picture = LoadPicture(ThisWorkbook.Path & "頭像" & "空" & ".jpg")

End If

End Sub

儲存關閉程式碼編輯視窗,回到檔案查詢表退出「影象」設計模式;




3

在「姓名」值單元格,輸入要查詢的姓名,檢視驗證搜尋結果。





IT145.com E-mail:sddin#qq.com