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

 时间:2026-04-22 05:27:49

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

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

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

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

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

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

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

见下图

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

4、 在空白处,右键,插入模块。

操作过程见下图

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

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

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

6、 在“模块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

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

见下图

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

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

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

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

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

见下图

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

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

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

  • 怎样使用VBA批量添加批注?
  • 如何使用VBA在Excel表格中插入间隔的空白行
  • vb判断word文件是否打开
  • 如何利用VBA代码插入并列结构
  • Excel中快速定位最后一个单元格—Excel小技巧
  • 热门搜索
    toy怎么读 ipad充不进电怎么回事 月经不调怎么调理最有效 戈怎么读 邮箱怎么填写 虾怎么做好吃 脑炎是怎么引起的 狗鱼的做法 小白兔怎么画 尧怎么读