NamedRange.AddComment 方法

向 NamedRange 控件添加注释。

命名空间：  Microsoft.Office.Tools.Excel
程序集：  Microsoft.Office.Tools.Excel（在 Microsoft.Office.Tools.Excel.dll 中）

语法

声明
Function AddComment ( _
    Text As Object _
) As Comment

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();
    }
}

.NET Framework 安全性

• 对直接调用方的完全信任。此成员不能由部分信任的代码使用。有关更多信息，请参见通过部分受信任的代码使用库。

请参见

参考

NamedRange 接口

Microsoft.Office.Tools.Excel 命名空间