|
バージョン)EXCEL2000
今シート上に動的にコントロールを作成したり削除したりする(コントロールの数の上限は決まっている)処理を作っています。
そこで、コンボボックス、コマンドボタンにそれぞれイベントがあるので、あらかじめ上限分のイベント(CommandButton_Click、ComboBox_Change)を作成しておいて、OLEObjects.AddとOLEObjects("コントロール名").Deleteを使用して処理を作成しました。
その際
Dim Ole As OLEObject
OLEObjects("コントロール名").Delete
Set Ole = OLEObjects.Add Left:=〜
Ole.Name = "コントロール名"
として作成したにもかかわらず、コントロール名_Click()イベントが実行されません。しかもイベントが発生する場合もあり、現象がランダムです。
原因はどうやらイベントが発生しなかったコントロールはデザインモードのプロパティウインドウには定義した"コントロール名"ではなくCommnadButton12などになっていて認識されていない様子です。
どなたか回避方法をご存知の方教えてください。お願いします。
|
|