|
在使用工作表时，许多人都喜欢使用单元格批注功能，或者是标注单元格的用途、或者是记录数据的来源、或者是记录修改的时间，等等。本文讲解在VBA中实现单元格批注的一系列操作。
下图是“审阅”选项卡中的“批注”组中的命令，我们现在就录制一些创建、显示、删除批注的操作，并对照录制的代码来认识在VBA中是如何操作单元格批注的。 首先，使单元格B3为当前单元格，单击“新建批注”添加批注，在批注框中输入文本，然后再次选择单元格B3，单击“显示/隐藏批注”，最后单击“删除”按钮删除刚才创建的批注。 录制的代码如下：
下面我们详细讲解一下代码中相关的属性和方法。 AddComment方法 给单元格添加批注。其语法为： Range对象.AddComment(Text) 其中，参数Text用来指定批注文本。 Comment属性 返回Comment对象，代表与单元格区域左上角的单元格相关联的批注。Comment对象是Comments集合的成员。 Visible属性 Comment对象的Visible属性用于返回或者设置一个布尔值（Boolean），确定是否批注可见，或者仅当用户悬浮鼠标在有批注的单元格上时可见。 Text方法 用来设置批注文本。其语法为： Comment对象.Text(Text,Start,Overwrite) 其中，参数Text用于设置批注文本，参数Start用来指定现有批注的起始点，参数Overwrite设置为True则覆盖现有批注文本。 ClearComments方法 Range对象.ClearComments 用于清除指定单元格区域中的所有单元格批注。
此外，Comment对象还有下列属性和方法： Author属性 返回创建批注的用户姓名。 Shape属性 返回代表批注框的Shape对象。 Previous属性 返回Comments集合中的前一个批注。 Next属性 返回Comments集合中的下一个批注。 Delete方法 删除单元格批注。
示例1：添加单元格批注 下面的代码为指定单元格添加批注文本： 运行代码后的结果如下图： 示例2：获取单元格批注 （1）下面的代码获取上例中创建的批注文本并放置在邻近的单元格中： 运行代码后的效果如下图所示： （2）下面的代码使用了Comment对象的Next方法，也能得到同样的结果。 （3）下面的代码遍历工作表中的批注，并获取批注文本放置在相应的单元格中，实现上面的效果。 说明：
示例3：在单元格批注中放置图片 在Excel中，如果我们要在批注中添加图片，可以按下列步骤操作： 第1步：单击选中批注框。 第2步：单击右键，单击快捷菜单中的“设置批注格式”命令。 第3步：在“设置批注格式”对话框中选择“颜色与线条”选项卡。 第4步：在“颜色与线条”选项卡中，单击“填充”中“颜色”下拉箭头并选中“填充效果”。 第5步：在“填充效果“对话框中选择“图片”选项卡，并单击“选择图片”按钮。 第6步：选择想要的图片，单击“插入”，然后依次在接下来的对话框中单击“确定”。 这样，就在批注框中插入了图片。 我们也可以使用VBA代码来实现： 说明：
上述代码运行后的结果如下图所示：
补遗 NoteText方法 设置或者获取与当前单元格区域左上角单元格相关的单元格注释，单元格注释已被单元格批注代替。
如果您对本文介绍的内容还有什么好的示例，欢迎发送邮件给我：xhdsxfjy@163.com 也可以在本文下方留言，提出您的看法或建议。 本文属原创文章，转载请联系我或者注明出处。
|
|
|
