如何:添加和删除工作表注释
在 Microsoft Office Excel 工作表中,可以通过编程方式添加和删除注释。 只能向单个单元格中添加注释,不能向包含多个单元格的范围中添加注释。
**适用于:**本主题中的信息适用于 Excel 2007 和 Excel 2010 的文档级项目和应用程序级项目。有关更多信息,请参见按 Office 应用程序和项目类型提供的功能。
在文档级项目中添加和删除注释
以下示例假定名为 Sheet1 的工作表中存在一个单个单元格 NamedRange 控件,其名称为 dateComment。
向命名区域中添加新注释
调用 NamedRange 控件的 AddComment 方法并提供注释文本。 此代码必须放置在 Sheet1 类中。
Me.dateComment.AddComment("Comment added " & DateTime.Now)
this.dateComment.AddComment("Comment added " + DateTime.Now.ToString());
删除命名范围中的注释
确认注释存在于该范围内并将其删除。 此代码必须放置在 Sheet1 类中。
If Not Me.dateComment.Comment Is Nothing Then Me.dateComment.Comment.Delete() End If
if (this.dateComment.Comment != null) { this.dateComment.Comment.Delete(); }
在应用程序级外接程序项目中添加和删除注释
下面的示例假定活动工作表上有一个名为 dateComment 的 Microsoft.Office.Interop.Excel.Range,该区域中只有一个单元格。
向 Excel 区域中添加新注释
调用 Microsoft.Office.Interop.Excel.Range 的 AddComment 方法并提供注释文本。
Dim dateComment As Excel.Range = Me.Application.Range("A1") dateComment.AddComment("Comment added " & DateTime.Now)
Excel.Range dateComment = this.Application.get_Range("A1", missing); dateComment.AddComment("Comment added " + DateTime.Now.ToString());
删除 Excel 区域中的注释
确认注释存在于该范围内并将其删除。
Dim dateComment As Excel.Range = Me.Application.Range("A1") If Not dateComment.Comment Is Nothing Then dateComment.Comment.Delete() End If
Excel.Range dateComment = this.Application.get_Range("A1", missing); if (dateComment.Comment != null) { dateComment.Comment.Delete(); }