フォームコントロールにつけるなら
OnAction = “関数名”
シートコントロールに付けるなら
・VBEにコードを追加する。VBAを追加する。
ActiveWorkbook.VBProject.VBComponents(ActiveSheet.CodeName).CodeModule
.InsertLines .CountOfLines + 1, 追加コード
Application.EnableEvents = True
・クラスを追加する。
クラスのセットプロパティーを利用する。