|
>>>コマンドバーポップアップでクリック時に処理したいのですが、
>>>フォーカスを当てただけで、処理が行われてしまいます。
>>>
>>>クリックした時だけ処理を行うにはどうしたらよいのでしょうか?
>>>
>>>今ボタンを追加する処理等は下記のようになってます。
>>>
>>>Sub AddCommandBar
>>> Dim MyCB As CommandBar
>>> Dim MyCBC1 As CommandBarPopup
>>>
>>> Set MyCB = Application.CommandBars("Cell")
>>>
>>> Set MyCBC1 = MyCB.Controls.Add(Type:=msoControlPopup)
>> ' MyCBC1.OnAction = "Macro1"
>>↑これが要りません
>>> MyCBC1.Parameter = "0"
>>>
>>> Set MyCBC2 = MyCBC1.Controls.Add(Type:=msoControlButton)
>>> MyCBC2.OnAction = "Macro1"
>>> MyCBC2.Parameter = "1"
>>>
>>>End Sub
>>>
>>>Sub Macro1
>>>
>>> '行いたい処理
>>>End Sub
>
>説明不足ですいません。
>
>MyCBC1とMyCBC2は似ているけど、別の処理で、
ん?どいうことでうか?上記のコードの
ポップアップ コントロール にOnactionプロパティを設定しているから
>>>フォーカスを当てただけで、処理が行われてしまいます。
という現象が起こっています。
よって、これを外しては? と申し上げました。
>Macro1内で区別して処理しています
これは、Application.Callerで区別しているのですか?
|
|