如果有一個產品列表要提交給用戶查看,我們可以給產品名稱所在單元格添加圖片批注,這樣當用戶在查看產品信息時,鼠標放到單元格中就可以看到該產品圖片。其具體的操作方法見本站的“給單元格添加圖片注釋”一文,但這個方法僅適合于給少量單元格添加圖片批注,如果有許多單元格都要添加圖片批注,可以用VBA代碼來快速進行,步驟如下:
1.準備圖片
將需要添加為批注的圖片全部復制到某個文件夾中,并以“產品名稱.jpg”來命名。如“三星SGH-F258.jpg”、“三星SGH-F700.jpg”等。
2.在單元格中輸入產品名稱,如“三星SGH-F258”、“三星SGH-F700”等,名稱必需和圖片名稱相對應。
3.在VBA編輯器中添加下面的代碼:
Sub AddABunch()
For Each cell In Selection
Pics= "h:\pic\" & cell.Value & ".jpg"
With cell.AddComment
.Shape.Fill.UserPicture PictureFile:=Pics
.Shape.Height = 100
.Shape.Width = 100
End With
Next cell
End Sub
其中“h:\pic\”為圖片所在文件夾,“ .Shape.Height = 100”指定批注圖片的高度, “.Shape.Width = 100”指定批注的寬度,請根據實際情況進行更改。
4.選擇所有包含產品名稱的單元格,運行上述代碼,即可為所有選中的單元格添加相應的圖片批注。
注意在選擇產品名稱所在單元格時,僅僅選擇所需單元格,而不能選擇其他單元格,特別是在這些單元格不連續時,否則會出錯。
5.如果要重新添加圖片批注,必需先刪除所有批注后再次運行VBA代碼。方法是選擇所有包含產品名稱的單元格,鼠標右擊,在彈出的快捷菜單中選擇“刪除批注”即可。