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 “テキスト”