Excel中2010版進(jìn)行引用可變圖像的操作技巧

Excel中2010版進(jìn)行引用可變圖像的操作技巧

　　在Excel插入一張圖片，這是很容易的事情。如果要根據(jù)內(nèi)容的變化來引用圖片，就不太好實現(xiàn)啦。今天，學(xué)習(xí)啦小編就教大家在Excel中2010版進(jìn)行引用可變圖像的操作技巧。

　　Excel中2010版進(jìn)行引用可變圖像的操作步驟

　　創(chuàng)建實例環(huán)境：第一，Excel之可變圖片文件夾中，創(chuàng)建一個名叫“頭像”的文件夾(用來存放頭像圖片)，創(chuàng)建一個名叫“Excel之可變圖片”的excel工作簿;第二，頭像文件夾中，存放實例頭像圖片，“Excel之可變圖片”excel工作簿,創(chuàng)建“檔案匯總”和“檔案查詢”工作表;

　　鏈接數(shù)據(jù)庫，插入“圖像框”和編輯事件代碼：第一，以“姓名”為查詢對象引用數(shù)據(jù)，使用“=VLOOKUP($B,檔案匯總!$A:$R,"該數(shù)據(jù)在檔案匯總的列標(biāo)",FALSE)”引用“檔案匯總”表的數(shù)據(jù);第二，在“控件工具箱”點(diǎn)擊“圖像”控件，在照片單元格添加一個“圖片框”用來存放可變圖片;第三，右擊“圖片框”——“查看代碼”，選擇“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

　　保存關(guān)閉代碼編輯窗口，回到檔案查詢表退出“圖像”設(shè)計模式;

　　在“姓名”值單元格，輸入要查找的姓名，查看驗證搜索結(jié)果。