1.フォームコントロールを動的に追加する
with ActiveSheet.CheckBoxes.Add(左位置,上位置, 広さ, 高さ)
.Name = 名前
.Caption = キャプション
.OnAction = イベント名
end with
sub イベント名()
end sub
2.シートコントロール(oleコントロール)を動的に追加する
2-1.コントロールをオブジェクト化?ActiveSheet.OLEObjects.Add _
ClassType:=クラスタイプ, _
Link:=リンクセル, _
Top:=上位置, _
Left:=左位置, _
Height:=高さ, _
Width:=広さ
Application.OnTime Now, コントロールにセットする関数名Sub コントロールにセットする関数名()
End Sub
Sub Auto_Open()
Call ントロールにセットする関数名
End SubPrivate WithEvents cbo As MSForms.CheckBox
Public Property Get cb() As MSForms.CheckBox
Set cb = cbo
End PropertyPublic Property Let cb(ByVal myNewCb As MSForms.CheckBox)
Set cbo = myNewCb
End PropertyPrivate Sub cbo_Click()
MsgBox “You just clicked Control Tool of ” & ChkBx.Caption & vbCr & _
”Value: ” & cbo.Value
End Sub