動的コントロールにイベント追加

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 Sub

Private WithEvents cbo As MSForms.CheckBox
Public Property Get cb() As MSForms.CheckBox
　　　　Set cb = cbo
End Property

Public Property Let cb(ByVal myNewCb As MSForms.CheckBox)
　　　　Set cbo = myNewCb
End Property

Private Sub cbo_Click()
　MsgBox “You just clicked Control Tool of ” & ChkBx.Caption & vbCr & _
　　　　　”Value： ” & cbo.Value
End Sub