批注(Comment)对象

Comment对象是单元格的一个属性，表示单元格的批注。Comment对象实质是一个矩形的图形对象(Shape)，可以通过批注对象的Shape属性来访问该批注所表示的Shape对象。

批注的添加与删除

当需要在某个单元格内添加批注时，采用以下方法：

objRange.AddComment([text])

其中，objRange表示一个单元格对象(Range)，Text表示批注的文字。当需要删除批注时，则使用批注对象(Comment)的Delete方法，其语法如下：

objCommment.Delete

其中，objComment表示一个批注对象。

FiIIFormat对象

Fill是许多对象（Shape. Font等）的一个共有属性，它表示填充格式，实质是一个FiIIFormat对象。在Excel中，用户可以通过填充设置来设置该对象的各个属性，如图所示。开发者同样可以通过录制宏的方法获取FiIIFormat对象各个属性设置的代码。FiIIFormat对象的一个重要的方法：UserPicture方法，该方法的语法如下：

objFillFormat.UserPicture(PictureFile)

其中，objFiIIFormat为一个FiIIFormat对象，PictureFile为一个图片文件的路径。

OnError语句

值得注意的是，当批注对象不存在（即单元格没有批注时）时使用删除方法，或批注对象已经存在（即单元格含有批注时）时使用添加批注方法，程序均会报运行时错误，如图所示。

由于在程序运行时，开发者无法获知某单元格是否已经添加了批注。若批注己存在，则再次添加批注时将会发生错误，因而在创建时应对原有的批注对象进行删除。为了避免出现当批注不存在时用删除方法产生的错误，通常采用以下语句来屏蔽错误的发生。

On Error Resume Next

On Error语句用于设置当运行时错误发生时，程序的处理方式。以上语句表示，当程序运行时，忽略当前错误语句并继续执行下一条语句。当需要取消该设置，使“运行时错误”报错时，则可使用以下语句：

On Error Goto 0

On Error语句还有另一种形式，即

On Error GoTo line

其中，line为程序的行标签，可使用以下形式来定义程序行标签：

行标签名：

如以下程序执行时，当执行至错误语句时，将直接调至标签Err Handle之后继续执行。

Sub OnError()On Error GoTo Err_Handledebug.print 1/0debug.print "上语句被跳过"Exit Sub
Err_handle:debug.print "发生错误"
End Sub

示例：

在Excel数据表中，经常需要在批注中插入一些补充信息。如图所示，该表为某公司员工信息表，在该文件所在目录中的员工照片文件夹下存有以员工编号为文件名的员工照片文件。现需要在该表姓名列插入批注，并将批注内容设置为该员工的照片。该如何用VBA实现？

部门	员工编号	姓名	基本工资
财务部	001	程建华	2875
财务部	002	李国敏	3050
财务部	003	袁志刚	3523
人事部	004	杨建军	2700
人事部	005	曲波	3215
管理部	006	周汉林	2890
管理部	007	骈永富	2850

Option ExplicitSub 创建图片批注()Dim RowN As IntegerOn Error Resume NextFor RowN = 2 To 8'删除原用的批注Cells(RowN, 3).Comment.Delete'添加批注Cells(RowN, 3).AddComment ""'添加图片为背景填充Cells(RowN, 3).Comment.Shape.Fill.UserPicture _"K:\VBA\excel\Excel疑难千寻千解丛书05：Excel 2010 VBA入门与提高\源码\第02章 数据的基本处理\员工照片\" _& Cells(RowN, 2) & ".jpg"'调整批注的高和宽Cells(RowN, 3).Comment.Shape.Height = 100Cells(RowN, 3).Comment.Shape.Width = 100NextEnd Sub

Excel 2010 VBA 入门 034 创建图片批注相关推荐

Excel 2010 VBA 入门 125 创建动态智能匹配的下拉列表
目录题码 TextBox控件和ListBox控件 ListBox控件的ListFiIIRange属性和List属性 ListBox控件的多列显示 ListBox控件的值模糊查询下拉列表控件的选 ...
Excel 2010 VBA 入门 139 创建工作簿级的自定义选项卡
目录题码 Excel工作簿的实质 XML简介 customUI.xml 常用的功能区控件及通用属性 tabs控件和tab控件 group控件命令控件内置控件的ID customUI.xml中控 ...
Excel 2010 VBA 入门 007 创建和使用数字证书签名
目录操作方法 1．创建数字证书步骤1 单击Windows中的"开始"按钮,在"所有程序"中找到Microsoft Office,在子文件夹"Mi ...
Excel 2010 VBA 入门 119 创建对话框的帮助文档
目录例码步骤1 步骤2 步骤3 步骤4 步骤5 步骤6 步骤7 步骤8 步骤9 步骤10 步骤11 步骤12 步骤13 步骤14 步骤15 CHM文件及HTML Help Workshop ...
Excel 2010 VBA 入门 001显示开发工具选项卡
目录 VBA简介宏简介显示"开发工具"选项卡 VBA简介 Visual Basic for Application (VBA)是Visual Basic的一种宏语言,是依附 ...
Excel 2010 VBA 入门 006 设置宏安全性
目录操作方法步骤1单击"开发工具"选项卡中的"宏安全性"按钮,如图所示. 步骤2在"信任中心"的"宏设置"选项中 ...
Excel 2010 VBA 入门 103 利用VBA批量插入图片
目录示例代码: Shapes.Shape和 ShapeRange Shapes对象插入图形的方法 Excel的坐标图形大小的调整获取图片的原始大小将图片按比例缩放至单元格图片批量插入的步骤 ...
Excel 2010 VBA 入门 064 按照关键字批量创建超链接
目录示例实现代码 Hyperlink对象创建超链接删除超链接及访问超链接创建超链接打开指定的宏代码示例如图所示,该表为某公司资产负债表以及关于报表的说明.为了方便阅读,现希望能够用VBA ...
Excel 2010 VBA 入门 130 利用窗体创建实时筛选浮动工具栏
目录题码 DefauIt和CanceI按钮提高单元格隐藏的速度自制浮动工具栏动态显示与隐藏窗体题如图所示,该表为某单位员工档案.现希望制作一个包含有文本框的浮动工具栏,当在文本框中输入字 ...

Excel 2010 VBA 入门 034 创建图片批注

批注(Comment)对象

批注的添加与删除

FiIIFormat对象

OnError语句

示例：

Excel 2010 VBA 入门 034 创建图片批注相关推荐

最新文章

热门文章