如何:添加和删除工作表注释
更新: 2008 年 7 月
适用于 |
---|
本主题中的信息仅适用于指定的 Visual Studio Tools for Office 项目和 Microsoft Office 版本。 项目类型
Microsoft Office 版本
有关更多信息,请参见按应用程序和项目类型提供的功能。 |
在 Microsoft Office Excel 工作表中,可以通过编程方式添加和删除注释。只能向单个单元格中添加注释,不能向包含多个单元格的范围中添加注释。
在文档级项目中添加和删除注释
以下示例假定名为 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(); }
请参见
任务
概念
修订记录
日期 |
修订历史记录 |
原因 |
---|---|---|
2008 年 7 月 |
增加了一个可在应用程序级外接程序中使用的代码示例。 |
客户反馈。 |