用Excel圖片批註功能做鼠觸圖片顯示

有時候，為了製作信息量大又簡潔的表格，我們需要為Excel表格的單元格添加可隱藏的圖片，並且當滑鼠指向單元格，就自動顯示圖片，移開則不顯示，這個鼠觸互動效果是不是很酷？



　　要實現Excel表格中滑鼠指向單元格就出現相關圖片的互動效果，只要通過Excel 2007的添加圖片批註功能就可以輕鬆做到。

　　下面，我們以製作產品列表為例，展示具體的添加圖片方法。



滑鼠指向單元格，自動顯示預設圖片

　　單個添加圖片

　　右擊目標單元格，選擇「添加批註」，刪除批註輸入框中所有文字，接著滑鼠移動到批註輸入框的邊線，當指針變成十字箭頭時，單擊滑鼠右鍵選擇「設置批註格式」→「顏色與線條」 →「填充效果」→「圖片」，再單擊「選擇圖片」添加圖片即可。

　　現在滑鼠指向目標單元格即可顯示圖片，移開滑鼠圖片就會自動隱藏。如果滑鼠移開時圖片沒有自動消失，可單擊Excel窗口左上角的「Office」，在彈出的菜單中單擊「Excel選項」，在「Excel選項」窗口左側選擇「高級」，在右側選擇 「僅顯示標誌符，懸停時加顯批註」(圖2)，確定後圖片即可自動隱藏了。



　　批量添加圖片

　　如果有許多單元格要添加圖片批註，逐一設置就很麻煩。我們可以通過宏批量設置圖片批註。

　　先把需要用到的圖片文件全部集中到一個文件夾中(例：F:\產品圖)，各圖片名稱必須與表格中相應產品名一致，以「產品名.jpg」這樣的格式命名，例如昂達VX545HD.jpg、昂達VX757.jpg等等。此外，所有圖片的高寬比例也應該一致，這樣才能確保統一設置后顯示的圖片不變形。

　　然後，在Excel 2007中打開工作簿，按下組合鍵「Alt+F8」打開宏窗口，輸入宏名為「添加圖片批註」，單擊「創建」按鈕，在打開的VBA窗口中編輯代碼。

1. Sub 添加圖片批註()
   
2. 
   
3. Dim 單元格
   
4. 
   
5. On Error Resume Next
   
6. 
   
7. For Each 單元格 In Selection
   
8. 
   
9. 單元格.AddComment
   
10. 
    
11. 單元格.Comment.Shape.Fill.UserPicture "F:\產品圖\" & 單元格.Value & ".jpg"
    
12. 
    
13. 單元格.Comment.Shape.Height = 120
    
14. 
    
15. 單元格.Comment.Shape.Width = 200
    
16. 
    
17. Next 單元格
    
18. 
    
19. End Sub

複製代碼

　　最後，關閉VBA窗口，把文件另存為「Excel 啟用宏的工作簿」格式的文檔。現在你只要選中要設置的所有單元格，例如A4:A20，按下組合鍵「Alt+F8」打開宏窗口，雙擊列表中的「添加圖片批註」運行宏(圖3)，即可批量為單元格添加圖片了。

　　(註：圖片在設置後會直接保存在工作簿中)。如果表格中的產品名改變了，或用於批註的圖片文件更換了，你只要再運行一下「添加圖片批註」宏刷新即可。