|
sasa さん
ご教授有難う御座いました。
メニューバーやコマンドバーでコンボボックスの値を取得出来るようになりました。
”変数set”、”順番通りに指定すればよい”、Captionが、理解するポイントでした。
なるほどです。本当に有難う御座いました。
(出来上がったコードの例)
・・・・
Set mymbar2 = mymbar1.Controls.Add(Type:=msoControlComboBox)
With mymbar2
.Caption = "コマンドバーフォーム表示条件"
.OnAction = "OnCbarFormAdd"
.BeginGroup = True
.AddItem "Cbar優先"
.AddItem "Form優先"
.AddItem "CbarForm交互"
.AddItem "CbarForm同時"
.ListIndex = 1
End With
Set mymbarCBox1 = Application.CommandBars("Worksheet Menu Bar").Controls(cn_mbaricon).Controls(mymbar2.Caption) ←これですね!
・・・・
msgbox mymbarCBox1.Text
・・・・
|
|