|
メニューを出し入れするより、メインマクロの方で自動で振り分けた方がいいと思いますけど...。
いったい何をしようとしているのか解りませんが...。
ごちゃごちゃしたメニューやツールバーは、うざったくて使いづらいと思います。
書換えは、単純にキャプションやマクロ登録名を換えてやればいいです。
Sub tututu()
Set RigMen = Application.CommandBars("cell").Controls.Add _
(Type:=msoControlPopup, temporary:=False)
With RigMen
.Caption = "aaa"
End With
Set RSub1 = RigMen.Controls.Add
With RSub1
.Caption = "Macro1"
.OnAction = "Macro1"
End With
Set RSub2 = RigMen.Controls.Add
With RSub2
.Caption = "Macro2"
.OnAction = "Macro2"
End With
Set RSub3 = RigMen.Controls.Add
With RSub3
.Caption = "Macro3"
.OnAction = "Macro3"
End With
End Sub
Sub Macro1()
MsgBox "Macro1"
End Sub
Sub Macro2()
MsgBox "Macro2"
End Sub
Sub Macro3()
MsgBox "Macro3"
End Sub
Sub Macro4()
MsgBox "Macro4"
End Sub
Sub Macro5()
MsgBox "Macro5"
End Sub
Sub hehe()
With Application.CommandBars("cell").Controls("aaa")
.Controls("Macro1").Caption = "M78"
.Controls("M78").OnAction = "Macro4"
.Controls("Macro3").Caption = "777"
.Controls("777").OnAction = "Macro5"
End With
End Sub
|
|