VBA オプションボタンの分類について
http://okweb.jp/kotaeru.php3?q=1424026
でオプションボタンの表示に関して質問をした者です。
ボタンを自動作成する事はできたのですが例えば1日と15日に
休暇を取得した場合、ボタンが6つ表示されるのですが(1日分が3コ、15日分が3コ)、
この6つのボタンのうち1つしか選択ができません。
(2つ目を選択すると、前に入力していたものはチェックが外れる。)
日にちごとに、1つずつボタンを選択するようにするにはどうしたら良いのでしょうか?
ちなみに、当該処理の今記述しているソースは以下のとおりです。
休暇情報の書き出しが終了するまでループで回しています。
ご教授ください。宜しくお願い致します。
'当日ボタン作成
Set objOLEToday = ActiveSheet.OLEObjects.Add(ClassType:="Forms.OptionButton.1", Link:=False, _
DisplayAsIcon:=False, Left:=565, Top:=100 + objCnt, Width:=45.5, Height:=15.5)
objOLEToday.Object.Caption = "当日"
'事前ボタン作成
Set objOLEBefore = ActiveSheet.OLEObjects.Add(ClassType:="Forms.OptionButton.1", Link:=False, _
DisplayAsIcon:=False, Left:=750, Top:=100 + objCnt, Width:=45.5, Height:=15.5)
objOLEBefore.Object.Caption = "事前"
'無断ボタン作成
Set objOLENotice = ActiveSheet.OLEObjects.Add(ClassType:="Forms.OptionButton.1", Link:=False, _
DisplayAsIcon:=False, Left:=920, Top:=100 + objCnt, Width:=45.5, Height:=15.5)
objOLENotice.Object.Caption = "無断"
'表示位置設定
objCnt = 405.4 + objCnt
お礼
ボタン自身を右クリック削除すればいいこと質問直後に発見、 どうもありがとうございました。