ControlCollection.AddRichTextBox メソッド (Range, String) (2007 System)

[アーティクル]
08/22/2008

更新 : 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	name 引数または range 引数が nullnull 参照 (Visual Basic では Nothing)。または、name 引数の長さが 0 の場合。
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);
}