Excel VBA質問箱 IV

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

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


8455 / 13644 ツリー ←次へ | 前へ→

【33211】メニュー中の区切り線の出し方について agalinman 06/1/5(木) 10:25 質問[未読]
【33213】Re:メニュー中の区切り線の出し方について だるま 06/1/5(木) 11:30 回答[未読]
【33216】Re:メニュー中の区切り線の出し方について agalinman 06/1/5(木) 11:49 お礼[未読]

【33211】メニュー中の区切り線の出し方について
質問  agalinman  - 06/1/5(木) 10:25 -

引用なし
パスワード
   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つの選択可能メニューが表示されます。この「初期化」の前に
区切り線を入れたいのですが、その方法が分かりません。
ここでいう「区切り線」とは、[ヘルプ]-[バージョン情報]の直前にあるような線のことです。

どなたか、この線の表示方法を教えて下さい。
宜しくお願い致します。

【33213】Re:メニュー中の区切り線の出し方について
回答  だるま WEB  - 06/1/5(木) 11:30 -

引用なし
パスワード
   BeginGroup プロパティで出来ると思います。^d^

【33216】Re:メニュー中の区切り線の出し方について
お礼  agalinman  - 06/1/5(木) 11:49 -

引用なし
パスワード
   agalinmanです。

できました。
どうもありがとうございました。

8455 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free