|
知识改变命运，科技成就未来。 企事业单位的人事部门在建立本单元的个人人事档案时，为了便于熟知每一个员工的相貌，一般会在档案中附带上个人照片；公司在宣传本公司产品时，为了展示产品的全貌以供客户参考，也会附带产品照片……很多时候我们都是将图片插入到Microsoft Word文档中，因为它排版比较方便，但是Microsoft Word文档的数据统计功能定没有Microsoft Excel工作表功能强大，但是在Excel插入图片排版又很麻烦，一旦图片插入又会影响整个工作表的美观。 以前讲解过通过图片超链接的方式展示图片，但是频繁的打开关闭图片也是很麻烦，本着简单粗暴的理念，今天一起来学习怎么通过Microsoft Excel批注来展示图片。只需将鼠标指针移动到某名称单元格上，就能在批注提示中出现该名称对应的图片。 方法一：手动实现单个图片的插入 首先左键单击选中需要添加照片图示批注的单元格，右键单击弹出菜单，然后左键单击右键菜单中的【插入批注】选项，按键盘上的【Backspace】键清除批注默认内容，右键单击批注边框的边缘，左键单击右键菜单中【设置批注格式】选项，在弹出的【设置批注格式】对话框中左键单击【颜色与线条】选项卡，左键单击【填充】中的【颜色】属性，左键单击下拉菜单中的【填充效果】选项，在弹出的【填充效果】对话框中左键单击【图片】选项卡，左键单击【选择图片】按钮，在弹出的【插入图片】对话框中选择【从文件】选项，根据图片路径和名称左键双击选择对应图片即可插入图片。其他单元格同样如此。 当然，这种操作方法太慢了，如果上百张图片，也不知什么时候是个头。倘若再遇上人事变动或产品更换，又要重新更换，这种方法不推荐，仅供大家参考。 方法二：使用VBA代码实现批量插入图片批注 首先选中需要添加照片提示的所有单元格，右键单击工作表【Sheet1】，左键单击右键菜单中的【查看代码】选项，左键单击【工程资源管理器】窗口中的【Sheet1】，将以下代码复制粘贴到代码窗口中，然后左键单击【运行子过程/用户窗体】按钮，运行代码。 重要提示： 1、图片名称必须与批注单元格名称一致。 2、将图片移动至一个文件夹中，并将文件夹重命名为【图片目录】。 3、请将图片所在【图片目录】文件夹移动至与本工作薄同一路径的文件夹中。 4、选中要添加图片批注的单元格。 代码区域： Sub 批量插入图片批注() Dim a a = MsgBox('提示：1、图片名称必须与批注单元格名称一致；2、将图片移动至一个文件夹中，并将文件夹重命名为【图片目录】；3、请将图片所在【图片目录】文件夹移动至与本工作薄同一路径的文件夹中；4、选中要添加图片批注的单元格。') If a = 1 Then On Error Resume Next Dim MR As Range Dim Pics As String For Each MR In Selection If Not IsEmpty(MR) Then MR.Select MR.AddComment MR.Comment.Visible = False MR.Comment.Text Text:='' MR.Comment.Shape.Fill.UserPicture PictureFile:=ActiveWorkbook.Path & '\图片目录\' & MR.Value & '.jpg' End If Next End If End Sub 至此，Microsoft Excel批量插入图片批注操作流程已经介绍完毕。虽然在Microsoft Excel中展示图片的方式很多，每种方法都各有千秋，适合你的方法才是最好的。小编个人觉得通过插入批注的方式更方便，因为它不必占用单元格，不影响整个工作表的美观，而且不用进行其他操作，只需将鼠标指针移动到单元格位置即可展示图片，展示速度比较快，拖动批注边框还可以调节图片大小，简单方便。 动动手指点击关注，每天掌握一些科技小技巧，相信也会为您的工作和生活带来便捷，何乐而不为呢？ 实践是检验真理的唯一标准，求人不如求己，看完整篇文章后，点击收藏。找机会亲自实践一下，也许会发现“新的大陆”。感谢您们的支持和厚爱，读者是小编创作的源泉。 如有疑问或建议，请在下方留言告诉我们，我们会及时回复和改正，感谢您的支持。 |
|
|
