チェックボックスを動的に追加

Set a = Range(“A1″)
With ActiveSheet.OLEObjects.Add(ClassType:=”Forms.CommandButton.1”, Left:=a.Left, Top:=a.Top
）
　　.Caption = “不可” ‘キャプションを設定
End With

指定した場所に動的にチェックボックスを配置することができる。

　チェックボックス…Forms.CheckBox.1
　テキストボックス…Forms.TextBox.1
　コマンドボタン　…Forms.CommandButton.1
　オプションボタン…Forms.OptionButton.1
　リストボックス　…Forms.ListBox.1
　コンボボックス　…Forms.ComboBox.1
　トグルボタン　　…Forms.ToggleButton.1
　スクロールバー　…Forms.ScrollBar.1
　ラベル　　　　　…Forms.Label.1
　イメージ　　　　…Forms.Image.1

Worksheets(“Sheet1”).OLEObjects(“TextBox1”).Object.Value = “テキスト”
Worksheets(“Sheet1”).OLEObjects(1).Object.Value = “テキスト”
Worksheets(“Sheet1”).OLEObjects(“ComboBox1”).Object.AddItem “テキスト”