ControlCollection.AddRichTextBox Метод (Range, String) (2007 System)

Статья
11/16/2008

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

Добавляет в указанный диапазон листа новый элемент управления RichTextBox.

Пространство имен: Microsoft.Office.Tools.Excel
Сборка: Microsoft.Office.Tools.Excel.v9.0 (в Microsoft.Office.Tools.Excel.v9.0.dll)

Синтаксис

'Декларация
Public Function AddRichTextBox ( _
    range As Range, _
    name As String _
) As RichTextBox
'Применение
Dim instance As ControlCollection
Dim range As Range
Dim name As String
Dim returnValue As RichTextBox

returnValue = instance.AddRichTextBox(range, _
    name)

public RichTextBox AddRichTextBox(
    Range range,
    string name
)

Параметры

range
Тип: Microsoft.Office.Interop.Excel.Range
Объект Range, предоставляющий границы элемента управления.

name
Тип: System.String
Имя элемента управления, которое можно использовать для индексации элемента управления в экземпляре ControlCollection.

Возвращаемое значение

Тип: Microsoft.Office.Tools.Excel.Controls.RichTextBox
Элемент управления RichTextBox, добавленный в экземпляр ControlCollection.

Исключения

Исключение	Условие
ArgumentNullException	Аргумент имени или диапазона равен nullссылка null (Nothing в Visual Basic), или аргумент имени имеет нулевую длину.
ControlNameAlreadyExistsException	Элемент управления с таким именем уже имеется в данном экземпляре ControlCollection.
InvalidRangeException	Указанный диапазон не существует. Невозможно использовать диапазоны с несколькими областями. Диапазон должен находиться на том же листе, что и экземпляр ControlCollection.

Заметки

Метод AddRichTextBox используется для добавления объектов RichTextBox в конец ControlCollection. Чтобы удалить добавленный программно объект RichTextBox, воспользуйтесь методом Remove().

Размер элемента управления автоматически изменяется при изменении размера диапазона.

Примеры

В следующем примере кода добавляется элемент управления в RichTextBox в ячейки A1 до B2, и назначается текст в элемент управления и затем текст форматируется.

Private Sub ExcelRangeAddRichTextBox()

    Dim RichTextBox1 As Microsoft.Office.Tools. _
        Excel.Controls.RichTextBox = Me.Controls. _
        AddRichTextBox(Me.Range("A1", "B2"), _
        "RichTextBox1")

    RichTextBox1.Text = "Sample text"
    RichTextBox1.Select(0, 6)
    RichTextBox1.SelectionFont = New Font( _
        "Times New Roman", 10, FontStyle.Bold)

End Sub

private void ExcelRangeAddRichTextBox()
{

    Microsoft.Office.Tools.Excel.Controls.RichTextBox
         richTextBox1 = this.Controls.AddRichTextBox(
         this.Range["A1", "B2"], "richTextBox1");
    richTextBox1.Text = "Sample text";
    richTextBox1.Select(0, 6);
    richTextBox1.SelectionFont = new Font("Times New Roman",
        10, FontStyle.Bold);
}

Разрешения

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