NamedRange.AddComment 方法 (2007 system)
更新：2007 年 11 月
向 NamedRange 控件添加注释。
命名空间： Microsoft.Office.Tools.Excel
程序集： Microsoft.Office.Tools.Excel.v9.0（在 Microsoft.Office.Tools.Excel.v9.0.dll 中）
语法
声明
Public Function AddComment ( _
Text As Object _
) As Comment
用法
Dim instance As NamedRange
Dim Text As Object
Dim returnValue As Comment
returnValue = instance.AddComment(Text)
public Comment AddComment(
Object Text
)
参数
Text
类型：System.Object注释文本。
返回值
类型：Microsoft.Office.Interop.Excel.Comment
备注
注释只能添加到由一个单元格组成的 NamedRange 控件中。如果 NamedRange 控件包含多个单元格，则不能添加注释。
可选参数
有关可选参数的信息，请参见了解 Office 解决方案中的可选参数。
示例
下面的代码示例使用 AddComment 方法向包括单元格 A1 的 NamedRange 控件添加注释“This is Martha's range.”。
此示例针对的是文档级自定义项。
Private Sub FindMarthaInTheRange()
Me.Range("A1").Value2 = "Martha lives on a vineyard"
Dim namedRange1 As Microsoft.Office.Tools.Excel.NamedRange _
= Me.Controls.AddNamedRange(Me.Range("A2"), _
"namedRange1")
namedRange1.AddComment("This is Martha's range.")
namedRange1.Value2 = namedRange1.AutoComplete("Ma")
If MessageBox.Show("Clear the range?", "Test", _
MessageBoxButtons.YesNo) = DialogResult.Yes Then
namedRange1.Clear()
End If
End Sub
private void FindMarthaInTheRange()
{
this.Range["A1", missing].Value2 = "Martha lives on a vineyard";
Microsoft.Office.Tools.Excel.NamedRange namedRange1 =
this.Controls.AddNamedRange(this.Range["A2", missing],
"namedRange1");
namedRange1.AddComment("This is Martha's range.");
namedRange1.Value2 = namedRange1.AutoComplete("Ma");
if (MessageBox.Show("Clear the range?", "Test",
MessageBoxButtons.YesNo) == DialogResult.Yes)
{
namedRange1.Clear();
}
}
权限
- 对直接调用方的完全信任。此成员不能由部分信任的代码使用。有关更多信息，请参见通过部分受信任的代码使用库。