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