|
●多个单元格批量添加批注图片： 1、建立一个文件夹，里面放入Excel文件和图片。 2、调整图片名称与Excel文件里面的相关单元格内容名称一致。 3、用VBA代码编写宏。打开Excel文件，⑴、 Alt+F11 打开VBA编辑窗口，插入--模块，双击模块弹出编写代码窗口；或⑵、 Alt+F8 打开宏窗口，输入宏名称如批量添加批注图片--创建，弹出编写代码窗口，并自动显示首末行代码；将以下代码全部复制进去： Sub 批量添加批注图片() ' 宏由hejun于2013年4月23日创立 ' Dir函数批量获取指定目录下所有文件名和内容 Dim 单元格 On Error Resume Next For Each 单元格 In Selection 单元格.AddComment 单元格.Comment.Shape.Fill.UserPicture Dir(ActiveWorkbook.Path & "\" & 单元格.Value & ".jpg") '当前文件所在目录下以当前单元内容为名称的.jpg图片 单元格.Comment.Shape.Height = 90 '批注框的高 单元格.Comment.Shape.Width = 160 '批注框的宽 Next 单元格 End Sub 4、关闭编写代码窗口和VBA编辑窗口；选定Excel文件里面需要添加批注图片的单元格（名称与图片名称一致的区域），视图--宏--查看宏，选中批量添加批注图片宏--执行，各图片则批量添加到对应的单元格的批注中。鼠标移动到此单元格，则自动显示批注的图片。 5、保存包含宏的Excel文件。文件--另存为；或保存--选否（以包含宏，选是则不包含宏），弹出另存为窗口；在保存类型下拉框里选择 Excel启用宏的工作簿，ok。 6、打开包含宏的Excel文件再次编辑修改时，工作簿时工具栏下面会出现会出现带有防护图标和“启用内容”按钮的黄色消息栏。您可以允许在当前工作簿中运行宏，否则不能使用宏。
|
|
|
