|
▼ichinose さん:
>▼山形 さん:
>こんばんは。
>>コマンドバーポップアップでクリック時に処理したいのですが、
>>フォーカスを当てただけで、処理が行われてしまいます。
>>
>>クリックした時だけ処理を行うにはどうしたらよいのでしょうか?
>>
>>今ボタンを追加する処理等は下記のようになってます。
>>
>>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は似ているけど、別の処理で、
Macro1内で区別して処理しています
|
|