目安箱 IV

目安箱投稿のルールはこちらをごらんください。
ご意見は電子メールで承っています。
「目安箱」は質問禁止です。技術的な質問はそれぞれの質問箱へどうぞ。

迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

┃ ┃ ┃ ┃ ┃ ┃

91 / 277

←次へ　｜　前へ→

【201】ボタンにパラメータを持たす、ボタン名（キャプション）の取得

Jaka - 07/7/13(金) 15:16 -


	引用なし

	パスワード

メニューバーにボタンがこんな感じとして。

新メニュー
　│
　├ マクロ１
　│
　├ マクロ２
　│
　├ マクロ３▼　─ マクロ３-１
　│
　└ マクロ４▼　─ パラマクロ４-１　キャプション名取得は、この階層まで。
　　　　　　　　│
　　　　　　　　└ パラマクロ４-２
　　　　　　　　　　　　│　
　　　　　　　　　　　　│　↓　注）キャプション名取得は、この階層以下は対応させてません。
　　　　　　　　　　　　 └ マクロ５▼　─ パラマクロ５-１

Sub パラメータの場合()
With Application.CommandBars("Worksheet Menu Bar").Controls
　　With .Add(Type:=msoControlPopup, Temporary:=True)
　　　　.Caption = "新メニュー"
　　　　With .Controls
　　　　　　With .Add(Type:=msoControlButton)
　　　　　　　　.Caption = "マクロ１"
　　　　　　　　.OnAction = "Mcro1"
　　　　　　　　.Parameter = "パラマクロ１"
　　　　　　End With
　　　　　　With .Add
　　　　　　　　.Caption = "マクロ２"
　　　　　　　　.OnAction = "Mcro1"
　　　　　　　　.Parameter = "パラマクロ２"
　　　　　　End With
　　　　　　With .Add(Type:=msoControlPopup)
　　　　　　　　.BeginGroup = True
　　　　　　　　.Caption = "マクロ３"
　　　　　　　　With .Controls.Add
　　　　　　　　　　.Caption = "マクロ３-１"
　　　　　　　　　　.OnAction = "Mcro1"
　　　　　　　　　　.Parameter = "パラマクロ３-１"
　　　　　　　　End With
　　　　　　End With
　　　　　　With .Add(Type:=msoControlPopup)
　　　　　　　　.Caption = "マクロ４"
　　　　　　　　With .Controls
　　　　　　　　　　 With .Add
　　　　　　　　　　　　 .Caption = "マクロ４-１"
　　　　　　　　　　　　 .OnAction = "Mcro1"
　　　　　　　　　　　　 .Parameter = "パラマクロ４-１"
　　　　　　　　　　 End With
　　　　　　　　　　 With .Add
　　　　　　　　　　　　 .Caption = "マクロ４-２"
　　　　　　　　　　　　 .OnAction = "Mcro1"
　　　　　　　　　　　　 .Parameter = "パラマクロ４-２"
　　　　　　　　　　 End With
　　　　　　　　End With
　　　　　　End With
　　　　End With
　　End With
End With
End Sub

Sub Mcro1()
With Application.CommandBars.ActionControl
　　MsgBox "ボタンキャプション" & vbLf & .Caption & vbLf & vbLf & _
　　　　　 "パラメータ" & vbLf & .Parameter
End With
End Sub

・余談
自分で使っているメニューバーは、独自のアイコンを持たせたいためマクロでボタン等は作ってません。
マクロでオリジナルアイコンを反映させるには、どこかのシートにアイコン用図形を貼り付けておいて、それをコピー、貼り付けを行うので、エクセルに貼り付けとして先にコピー、エクセル起動、貼り付けの手順を踏むとコピーされたアイコンが張り付くといった情けない結果になるから.....。

で、どうやっているのかといえば、ユーザー設定で作っておいて、起動時にメニューバーに移動させる方法を取ってます。
至極たまに、起動時にエラーが発生する時がありますが、エクセルの不具合でボタンを移動後、コピー元のツールバーを消せなかった時におきます。そういう時は、手動でそのツールバーを消してやれば良いです。

1,724 hits