要實現(xiàn)Excel表格中鼠標指向單元格就出現(xiàn)相關圖片的互動效果，只要通過Excel 2007的添加圖片批注功能就可以輕松做到。　　
　　下面，我們以制作產品列表為例，展示具體的添加圖片方法?！　?
　　鼠標指向單元格，自動顯示預設圖片　　
　　單個添加圖片　　
　　右擊目標單元格，選擇“添加批注”，刪除批注輸入框中所有文字，接著鼠標移動到批注輸入框的邊線，當指針變成十字箭頭時，單擊鼠標右鍵選擇“設置批注格式”→“顏色與線條” →“填充效果”→“圖片”，再單擊“選擇圖片”添加圖片即可。　　
　　現(xiàn)在鼠標指向目標單元格即可顯示圖片，移開鼠標圖片就會自動隱藏。如果鼠標移開時圖片沒有自動消失，可單擊Excel窗口左上角的“Office”，在彈出的菜單中單擊“Excel選項”，在“Excel選項”窗口左側選擇“高級”，在右側選擇 “僅顯示標志符，懸停時加顯批注”，確定后圖片即可自動隱藏了?！　　?
　　如果有許多單元格要添加圖片批注，逐一設置就很麻煩。我們可以通過宏批量設置圖片批注?！?
　　先把需要用到的圖片文件全部集中到一個文件夾中(例：F:產品圖)，各圖片名稱必須與表格中相應產品名一致，以“產品名.jpg”這樣的格式命名，例如昂達VX545HD.jpg、昂達VX757.jpg等等。此外，所有圖片的高寬比例也應該一致，這樣才能確保統(tǒng)一設置后顯示的圖片不變形?！　?
　　然后，在Excel 2007中打開工作簿，按下組合鍵“Alt+F8”打開宏窗口，輸入宏名為“添加圖片批注”，單擊“創(chuàng)建”按鈕，在打開的VBA窗口中編輯代碼?！　?
　　代碼片段：　　
　　Sub 添加圖片批注()
　　 Dim 單元格
　　 On Error Resume Next
　　 For Each 單元格 In Selection
　　單元格.AddComment
　　單元格.Comment.Shape.Fill.UserPicture "F:產品圖" & 單元格.Value & ".jpg"
　　單元格.Comment.Shape.Height = 120
　　單元格.Comment.Shape.Width = 200
　　Next 單元格
　　End Sub　　
　　最后，關閉VBA窗口，把文件另存為“Excel 啟用宏的工作簿”格式的文檔。現(xiàn)在你只要選中要設置的所有單元格，例如A4:A20，按下組合鍵“Alt+F8”打開宏窗口，雙擊列表中的“添加圖片批注”運行宏，即可批量為單元格添加圖片了?！　?
　　(注：圖片在設置后會直接保存在工作簿中)。如果表格中的產品名改變了，或用于批注的圖片文件更換了，你只要再運行一下“添加圖片批注”宏刷新即可。

最新評論