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
)

参数

返回值

类型: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 命名空间