假如在excell中输入了一个内容,然后又希望配一张图加强说明,并且这张图在鼠标放到这个内容上时再出来,而当鼠标移走后它又消失,如何实现这种功能呢?且看下文分解

工具/原料

excell2003

添加单张隐藏图片

1如图,要给苹果添加可隐藏的图片

2选中单元格右击,选择"插入批注":

3之后界面变为:

4删除框内的所有文字后,将鼠标移至框的边缘,待鼠标变为四个箭头后,右击选择"设置批注格式",弹出的界面如下图:

5选择"颜色与线条"选项卡后,单击颜色框后面的小黑箭头,并选择"填充效果",如下图:

6在弹出的界面中,选择"图片"选项卡,如下图:

7单击"选择图片",选择要加入的图片后单击两次"确定",效果如下:注意苹果那个单元格的右上角多了一个红三角号出来

8将鼠标移至苹果所在的单元格,效果如下:可以看到说明图片出现了,而当把鼠标移出单元格后就会发现说明图片又消失了,神奇吧,大功告成END

插入批量隐藏图片

1

如果是一个项目很多的表需要插入可隐藏的说明图片,倘若一个一个的操作去添加是不是比较麻烦?且看如何批量添加隐藏说明图片

2首先应将所有的图片(图片的名称和excell中的名称一样,比如如果excell中的名称为"苹果",则对应的图片名称为"苹果.jpg")放到一个文件夹中,比如我所放的位置为:D:\pic\

3如图要给三个描述文字添加隐藏说明图片:

4按组合键"alt+F8",弹出如下界面:

5在宏名一栏中输入"批量添加隐藏图片"后,单击"创建",弹出的界面如下:

6在"Sub 批量添加隐藏图片()"和"End Sub"之间添加如下代码,要注意加粗倾斜部分是你图片文件夹所在的位置:代码: Dim cell On Error Resume Next For Each cell In Selection cell.AddComment cell.Comment.Shape.Fill.UserPicture "D:\pic\" & cell.Value & ".jpg" cell.Comment.Shape.Height = 600 cell.Comment.Shape.Width = 800 Next cell

7关闭上图所示的操作窗口,将表格另存为".xla"文件,如下图:

8选中要添加隐藏图片说明的所有单元格后按组合键"alt+F8",弹出界面如下:

9双击"批量添加隐藏图片"后效果如下,注意所有的单元格的右上方都有了一个红色的小箭头:

10分别将鼠标移至每个单元格,效果分别为:移至"apple":移至"banana":移至"pear":可以看到批量添加隐藏图片说明已经成功了,神奇吧!END