利用Excel VBA为批注设置图片背景-Excel教程

Excel提供为批注设置图片背景的功能，使得我们的批注更加实用和彰显个性。

这里我介绍一下用VBA命令来为Excel批注设置图片背景，比常规操作来得简单。

前期准备工作（包括相关工具或所使用的原料等）

Excel

详细的操作方法或具体步骤

我本身喜欢用Excel做读书笔记，每碰到一个有用的点就记在Excel的单元格内，然后给此单元格加批注，显示我做笔记的时间。

但是当我碰到读不懂的点时，我想给相应做笔记的单元格批注加一个“问号”的图片背景，那么我以后回过头来阅读时，就一目了然了。

先给大家看下批注的要达到的“效果”。

比如我读到“一元三次方程的解法”的时候读不懂了，怎么给单元格加带“问号”图片背景的批注呢？

打开一个Excel文件，按“Alt + F11",就会出现"VBA的编辑界面"

见下图

在空白处，右键，插入模块。

操作过程见下图

插入模块之后，代码窗口就变为插入的“模块1”的代码输入窗口了

在“模块1”的代码输入窗口中，输入如下代码。

*****代码开始*********

Sub 为批注设置图片背景()

Dim Pict

Pict=Application.GetOpenFilename("图片文件(*.jpg;*.bmp),*.jpg;*.jpg;*.bmp")

If Pict="false" Then End

With ActiveCell.Comment

.Visible=False

.Shape.Fill.UserPicture Pict

End With

End Sub

*****代码结束*********

见下图

假定你现在在"A1"单元格已经有批注了。

先选则"A1"单元格（注意这里必选你要设置图片背景批注所在的单元格），

然后回到“模块1”的代码输入窗口，将光标移到我们刚刚输入的代码中的任一处，按"F5“，会出现下面的对话框。

接下来在你自己电脑上选择一张图片，然后点“打开”。

见下图

这时你会发现，"A1"单元格的批注已经有图片背景了。

经验内容仅供参考，如果您需解决具体问题(尤其法律、医学等领域)，建议您详细咨询相关领域专业人士。作者声明：本教程系本人依照真实经历原创，未经许可，谢绝转载。