NamedRange.AddComment Метод (2007 System)

Статья
11/16/2008

Обновлен: Ноябрь 2007

Добавляет комментарий к элементу управления 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 используется для добавления комментария "This is Martha's range." в элемент управления NamedRange, включающий в себя ячейку A1.

В этом примере демонстрируется настройка уровня документа.

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

Разрешения

Полное доверие для непосредственно вызывающего метода. Этот член не может быть использован частично доверенным кодом. Дополнительные сведения см. в разделе Использование библиотек из не вполне надежного кода.