|
agalinman と申します。
知識不足で手詰まりになってしまったので、どなたか教えて下さい。
カスタマイズメニューに区切り線を入れるには、
どのようにしたらいいのでしょうか?
メニューバーに「データ入出力関係」というカスタマイズメニューを追加し、
そこから、それぞれの機能関数
・Import_Data
・Export_Data
・Calc
・Initialize
を呼び出せるようにするような Add_Menu という関数を作成しました。
汚いですが、コードは下記です。
ここから----------------------------------
Sub Add_Menu(Optional ByVal Dummy As Boolean)
'引数の「Optional ByVal Dummy As Boolean」はマクロ一覧に表示させたくないため
Dim objMENU As CommandBarControl
Dim objSUBMENU As CommandBarControl
Dim DatInOut As CommandBarControl
On Error Resume Next
Set DatInOut = CommandBars("Worksheet Menu Bar").Controls("データ出力(&K)")
Set DatInOut = Nothing
'メニューが追加されていない場合は追加する。
'追加されている場合は何もしない。
If Err Then
'メインメニューを追加する
Set objMENU = CommandBars("Worksheet Menu Bar").Controls.Add(msoControlPopup, , , , True)
objMENU.Caption = "データ入出力関係(&K)"
'階層の下を作成する
Set objSUBMENU = objMENU.Controls.Add
objSUBMENU.Caption = "Vファイルからの取込"
objSUBMENU.TooltipText = "取込"
objSUBMENU.OnAction = "Import_Data"
Set objSUBMENU = Nothing
'階層の下を作成する
Set objSUBMENU = objMENU.Controls.Add
objSUBMENU.Caption = "Pファイルへ反映"
objSUBMENU.TooltipText = "反映"
objSUBMENU.OnAction = "Export_Data"
Set objSUBMENU = Nothing
'階層の下を作成する
Set objSUBMENU = objMENU.Controls.Add
objSUBMENU.Caption = "実績集計"
objSUBMENU.TooltipText = "集計"
objSUBMENU.OnAction = "Calc"
Set objSUBMENU = Nothing
'階層の下を作成する
Set objSUBMENU = objMENU.Controls.Add
objSUBMENU.Caption = "初期化"
objSUBMENU.TooltipText = "初期化"
objSUBMENU.OnAction = "Initialize"
Set objSUBMENU = Nothing
End If
On Error GoTo 0
End Sub
ここまで---------------------------------
これを実行した時、メニューバーに表示される「データ入出力関係」をクリックすると、
プルダウンで「Vファイルからの取込」「Pファイルへ反映」「実績集計」「初期化」と
4つの選択可能メニューが表示されます。この「初期化」の前に
区切り線を入れたいのですが、その方法が分かりません。
ここでいう「区切り線」とは、[ヘルプ]-[バージョン情報]の直前にあるような線のことです。
どなたか、この線の表示方法を教えて下さい。
宜しくお願い致します。
|
|