|
▼bykin さん:
>Sub AddCommandBar()
> Dim MyCB As CommandBar
> Dim MyCBP As CommandBarPopup
> Dim MyCBC1 As CommandBarButton
> Dim MyCBC2 As CommandBarButton
>
> Set MyCB = Application.CommandBars("Cell")
> Set MyCBP = MyCB.Controls.Add(Type:=msoControlPopup)
> MyCBP.Caption = "Popup"
> Set MyCBC1 = MyCBP.Controls.Add(Type:=msoControlButton)
> MyCBC1.OnAction = "Macro1"
> MyCBC1.Caption = "Macro1-0"
> MyCBC1.Parameter = "0"
>
> Set MyCBC2 = MyCBP.Controls.Add(Type:=msoControlButton)
> MyCBC2.OnAction = "Macro1"
> MyCBC2.Caption = "Macro1-1"
> MyCBC2.Parameter = "1"
>
>End Sub
>
>Sub Macro1()
> MsgBox Application.CommandBars.ActionControl.Parameter
> '行いたい処理
>End Sub
上記も考えたのですが、
ポップアップ用1つと処理用2つになるので、
ポップアップをデフォルト処理用
ボタンをイレギュラー処理用にしようと思って試してました。
>ただし、こういうときはWith使えば簡略化できまっせ。↓こんな感じ。
With文はデバッグ時に変数の値がヒントに表示されないので、使って無いです
|
|