ControlCollection.AddRichTextBox 方法 (Range, String) (2007 system)

2008-09-04

更新：2007 年 11 月

在工作表中的指定范围添加一个新的 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

添加到 ControlCollection 实例的 RichTextBox 控件。

异常

异常	条件
ArgumentNullException	名称参数或范围参数为 nullnull 引用（在 Visual Basic 中为 Nothing），或者名称参数长度为零。
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);
}