VBAで、右クリックメニューの項目について

VBAでユーザー定義のショートカットメニューを作成し、表示（Caption）させます
例）上から、登録、保存、終了
OnActionでは全て同じマクロを指定します（OnAction="aaaa"）
マクロ"aaa"では、押されたメニューの名前をMsgBoxで表示したいのですが、この場合はどのようにすればよいのでしょうか？
よろしければ教えていただけないでしょうか

No.3 ベストアンサー 回答者： misatoanna 回答日時： 2006/04/28 16:10

> 上から、登録、保存、終了

Sub aaaa()
MsgBox CommandBars("Cell").Controls. _
Item(Application.Caller(1)).Caption
End Sub

の１プログラムでいかがでしょうか。

この回答へのお礼

ユーザー定義のマクロだったので、("Cell")の部分を自分で作ったコマンドバーを指定したら出来ました
ありがとうございました！

お礼日時：2006/04/29 22:58

No.2 回答者： temtecomai2 回答日時： 2006/04/28 15:14

ボタンから呼び出すプロシージャを 3つとも別のものにして、そこから共通のプロシージャを呼び出すとか。

Public Sub aaaa(aButtonName As String)
MsgBox aButtonName
End Sub


Public Sub AddClicked()
Call aaaa("登録")
End Sub


Public Sub SaveClicked()
Call aaaa("保存")
End Sub


Public Sub ExitClicked()
Call aaaa("終了")
End Sub

この回答へのお礼

他の方の回答により解決いたしました
ありがとうございました！

お礼日時：2006/04/29 22:59

No.1 回答者： imogasi 回答日時： 2006/04/28 15:13

実際では使ったことないが、３つぐらいなら

Sub AddMenu()
Dim Newb1
Set Newb1 = Application.CommandBars("Cell").Controls.Add()
With Newb1
.Caption = "登録"
.OnAction = ""
.OnAction = "Sample1"
.BeginGroup = False
End With
Dim Newb2
Set Newb2 = Application.CommandBars("Cell").Controls.Add()
With Newb2
.Caption = "保存"
.OnAction = ""
.OnAction = "Sample2"
.BeginGroup = False
End With
Dim Newb3
Set Newb3 = Application.CommandBars("Cell").Controls.Add()
With Newb3
.Caption = "終了"
.OnAction = ""
.OnAction = "Sample3"
.BeginGroup = False
End With
End Sub

Sub Sample1()
MsgBox "登録"
End Sub
Sub Sample2()
MsgBox "保存"
End Sub
Sub Sample3()
MsgBox "終了"
End Sub
上記は、私の好みで、それぞれ別プロへ飛ぶようにしました。
.OnAction = ""　は登録をクリアするために要りそうなので入れました。
３セットを１セットで記述する方法もありそうだが、配列などもつかえるかどうかわからないので、似たもの３回繰り返しました。
なお、間違って登録したものの削除が必要な場合は
Sub test1()
For i = 1 To 2
Application.CommandBars("cell").Controls(i).Delete
Next i
End Sub
でできるようだか、０から開始かもしれない。
i は、現表示の何番目のメニューかを指定をすることになるようです。間違えないようにしないと、やり直しが効かないと思う。
一応テスト済み。

この回答へのお礼

他の方の回答により解決いたしました
ありがとうございました！

お礼日時：2006/04/29 23:00