Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

51220 / 76732

←次へ　｜　前へ→


	【30385】Re:コマンドの追加と変更について

Jaka - 05/10/26(水) 13:16 -


	引用なし

	パスワード

メニューを出し入れするより、メインマクロの方で自動で振り分けた方がいいと思いますけど...。
いったい何をしようとしているのか解りませんが...。
ごちゃごちゃしたメニューやツールバーは、うざったくて使いづらいと思います。

書換えは、単純にキャプションやマクロ登録名を換えてやればいいです。

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

1 hits

▼

【30339】コマンドの追加と変更について mitu 05/10/25(火) 16:39