Excel表格实现鼠标指向单元格自动显示图片

Excel表格实现鼠标指向单元格自动显示图片

在十几家工作中有时候需要等级人员名单，或产品名单，如果能在名单后面加入浮动的图片，那么这个普通的电子表格就有新意了，如下图；

1.单个单元格添加图片批注

按实际需求创建表格，如下图1；在需要添加图片批注的单元格上单击右键，在浮动菜单中选择“插入批注”如下图2；删除批注对话框中的内容，将鼠标移动到批注对话框的边界，当鼠标变成＋时单击右键，如下图3；

右键后选择浮动菜单中的“设置批注格式”选项，如下图1；在弹出的“设置批注格式”对话框中切换到“颜色与线条”选项卡，单击颜色的下拉菜单，选择“填充效果”选项，如下图2；在弹出的填充效果对话框中切换到“图片”选项，并单击“选择图片”选项，如下图3；

在弹出的插入图片页面下单击“来自文件”选项，在弹出的选择图片对话框中选择图片，并单击“插入”，插入后依次单击“确定>确定”；

完成如上操作后如下；

2.批量添加图片批注

当人员数量众多，单个添加将变得效率低下，需要实现批量添加，此处可以借助“宏”来完成；

整理人员图片信息，并以电子表格中的名称命名，并放到指定目录下，例如此处放到“C:\Photo”中；

按快捷键“Alt+f8”打开编辑宏对话框，输入宏名“批量添加图片批注”单击“创建”，将宏代码粘如代码编辑框中；代码如下，粘贴完成后单击右上角关闭按钮，关闭宏编辑对话框；

========================不复制上下横线==================

Dim 单元格

On Error Resume Next

For Each 单元格 In Selection

单元格.AddComment

单元格
.Comment.Shape.Fill.UserPicture "C:\Photo\" & 单元格.Value & ".jpg"

单元格.Comment.Shape.Height = 120

单元格.Comment.Shape.Width = 200

Next 单元格

========================不复制上下横线==================

选择需要添加图片批注的单元格，使用快捷键Alt+F8打开宏对话框，单击“执行”即可；

3.常见问题

1、位于“C:\Photo”中的图片是否可以删除

可以删除，插入后的图片保存到了excel中；

2、鼠标移动上去不能显示图片

依次单击“文件>选项”，在打开的选项对话框中切换到“高级”选项下，确认右侧栏目中勾选了“仅显示标识符，悬停时加显批注”；