|
●多個(gè)單元格批量添加批注圖片： 1、建立一個(gè)文件夾，里面放入Excel文件和圖片。 2、調(diào)整圖片名稱與Excel文件里面的相關(guān)單元格內(nèi)容名稱一致。 3、用VBA代碼編寫宏。打開Excel文件，⑴、 Alt+F11 打開VBA編輯窗口，插入--模塊，雙擊模塊彈出編寫代碼窗口；或⑵、 Alt+F8 打開宏窗口，輸入宏名稱如批量添加批注圖片--創(chuàng)建，彈出編寫代碼窗口，并自動(dòng)顯示首末行代碼；將以下代碼全部復(fù)制進(jìn)去： Sub 批量添加批注圖片() ' 宏由hejun于2013年4月23日創(chuàng)立 ' Dir函數(shù)批量獲取指定目錄下所有文件名和內(nèi)容 Dim 單元格 On Error Resume Next For Each 單元格 In Selection 單元格.AddComment 單元格.Comment.Shape.Fill.UserPicture Dir(ActiveWorkbook.Path & "\" & 單元格.Value & ".jpg") '當(dāng)前文件所在目錄下以當(dāng)前單元內(nèi)容為名稱的.jpg圖片 單元格.Comment.Shape.Height = 90 '批注框的高 單元格.Comment.Shape.Width = 160 '批注框的寬 Next 單元格 End Sub 4、關(guān)閉編寫代碼窗口和VBA編輯窗口；選定Excel文件里面需要添加批注圖片的單元格（名稱與圖片名稱一致的區(qū)域），視圖--宏--查看宏，選中批量添加批注圖片宏--執(zhí)行，各圖片則批量添加到對(duì)應(yīng)的單元格的批注中。鼠標(biāo)移動(dòng)到此單元格，則自動(dòng)顯示批注的圖片。 5、保存包含宏的Excel文件。文件--另存為；或保存--選否（以包含宏，選是則不包含宏），彈出另存為窗口；在保存類型下拉框里選擇 Excel啟用宏的工作簿，ok。 6、打開包含宏的Excel文件再次編輯修改時(shí)，工作簿時(shí)工具欄下面會(huì)出現(xiàn)會(huì)出現(xiàn)帶有防護(hù)圖標(biāo)和“啟用內(nèi)容”按鈕的黃色消息欄。您可以允許在當(dāng)前工作簿中運(yùn)行宏，否則不能使用宏。
|
|
|
來(lái)自： 阿木國(guó)風(fēng) > 《office》
