Option Explicit
'メニュー関係モジュール

'メニューを初期化する
Public Sub ResetMenuBar()

    'コマンドバーをリセット
    Application.CommandBars("Worksheet Menu Bar").Reset
    Application.Caption = ""
    
    gFlg = False
    
    'ユーザー初期値に戻す
    Call mdlMain.MainClose
    
End Sub

'xlKyuyo2独自のメニュー
Public Sub CreateMenuBar()

    Dim objCB As CommandBar
    Dim objCBCtl As CommandBarControl
    
    'コマンドバーを非表示
    Call mdlMain.Main
    
    Set objCB = Application.CommandBars("Worksheet Menu Bar")
    
    '既存のメニューをクリア
    For Each objCBCtl In objCB.Controls
        objCBCtl.Delete
    Next
    
    '「ファイル」メニュー作成
    Set objCBCtl = objCB.Controls.Add(msoControlPopup)
    objCBCtl.Caption = "ファイル(&F)"
    
        '「ファイル」メニューのコマンド
        Set objCBCtl = objCB.Controls("ファイル(&F)").Controls.Add(msoControlButton)
        objCBCtl.Caption = "新規作成(&N)..."
        objCBCtl.OnAction = "mdlFileMenu.CrateDataFile"
        Set objCBCtl = objCB.Controls("ファイル(&F)").Controls.Add(msoControlButton)
        objCBCtl.Caption = "開く(&O)..."
        objCBCtl.OnAction = "mdlFileMenu.OpenDataFile"
        Set objCBCtl = objCB.Controls("ファイル(&F)").Controls.Add(msoControlButton)
        objCBCtl.Caption = "閉じる(&C)"
        objCBCtl.OnAction = "mdlFileMenu.CloseDataFile"
        Set objCBCtl = objCB.Controls("ファイル(&F)").Controls.Add(msoControlButton)
        objCBCtl.Caption = "上書き保存(&S)"
        objCBCtl.OnAction = "mdlFileMenu.SaveDataFile"
        objCBCtl.BeginGroup = True
        Set objCBCtl = objCB.Controls("ファイル(&F)").Controls.Add(msoControlButton)
        objCBCtl.Caption = "名を付けて保存(&A)..."
        objCBCtl.OnAction = "mdlFileMenu.RenameDataFile"
        Set objCBCtl = objCB.Controls("ファイル(&F)").Controls.Add(msoControlButton)
        objCBCtl.Caption = "年度更新(&K)..."
        objCBCtl.OnAction = "mdlFileMenu.Kousin"
        objCBCtl.BeginGroup = True
        Set objCBCtl = objCB.Controls("ファイル(&F)").Controls.Add(msoControlButton)
        objCBCtl.Caption = "ファイル分割(&D)"
        objCBCtl.OnAction = "mdlFileMenu.Bunkatu"
        Set objCBCtl = objCB.Controls("ファイル(&F)").Controls.Add(msoControlButton)
        objCBCtl.Caption = "Excelに戻る(&Q)"
        objCBCtl.OnAction = "mdlMenu.ResetMenuBar"
        objCBCtl.BeginGroup = True
    
    '「設定」メニューの作成
    Set objCBCtl = objCB.Controls.Add(msoControlPopup)
    objCBCtl.Caption = "設定(&C)"
    
        '「設定」メニューのコマンド
        Set objCBCtl = objCB.Controls("設定(&C)").Controls.Add(msoControlButton)
        objCBCtl.Caption = "社員情報(&S)..."
        objCBCtl.OnAction = "mdlEstablish.LoadSyainInfo"
        Set objCBCtl = objCB.Controls("設定(&C)").Controls.Add(msoControlButton)
        objCBCtl.Caption = "扶養家族給情報(&F)..."
        objCBCtl.OnAction = "mdlEstablish.LoadFamiliInfo"
        Set objCBCtl = objCB.Controls("設定(&C)").Controls.Add(msoControlButton)
        objCBCtl.Caption = "社員別給与/社会保険情報(&S)..."
        objCBCtl.OnAction = "mdlEstablish.SetSyakaiHoken"
        Set objCBCtl = objCB.Controls("設定(&C)").Controls.Add(msoControlButton)
        objCBCtl.Caption = "給与/手当・控除項目設定(&K)..."
        objCBCtl.OnAction = "mdlEstablish.SetKyuyoKoumoku"
        objCBCtl.BeginGroup = True
        Set objCBCtl = objCB.Controls("設定(&C)").Controls.Add(msoControlButton)
        objCBCtl.Caption = "賞与/控除項目設定(&B)..."
        objCBCtl.OnAction = "mdlEstablish.SetSyouoyoKoumoku"
        Set objCBCtl = objCB.Controls("設定(&C)").Controls.Add(msoControlButton)
        objCBCtl.Caption = "事業所名の設定/変更(&J)..."
        objCBCtl.OnAction = "mdlEstablish.SetCorp"
        objCBCtl.BeginGroup = True
        Set objCBCtl = objCB.Controls("設定(&C)").Controls.Add(msoControlButton)
        objCBCtl.Caption = "雇用保険/社会保険加入状況変更(&H)..."
        objCBCtl.OnAction = "mdlEstablish.SetSeihukansyo"
        Set objCBCtl = objCB.Controls("設定(&C)").Controls.Add(msoControlButton)
        objCBCtl.Caption = "年度の設定/変更(&N)..."
        objCBCtl.OnAction = "mdlEstablish.SetDate"
        
    '「給与/賞与」メニュー作成
    Set objCBCtl = objCB.Controls.Add(msoControlPopup)
    objCBCtl.Caption = "給与/賞与(&K)"
    
        '「給与/賞与」メニューのコマンド
        Set objCBCtl = objCB.Controls("給与/賞与(&K)").Controls.Add(msoControlButton)
        objCBCtl.Caption = "給与入力/訂正(&S)..."
        objCBCtl.OnAction = "mdlSalary.PaySalary"
        Set objCBCtl = objCB.Controls("給与/賞与(&K)").Controls.Add(msoControlButton)
        objCBCtl.Caption = "賞与入力/訂正(&B)..."
        objCBCtl.OnAction = "mdlSalary.PayBonus"
    
    '「集計」メニュー作成
    Set objCBCtl = objCB.Controls.Add(msoControlPopup)
    objCBCtl.Caption = "集計(&S)"
    
        Set objCBCtl = objCB.Controls("集計(&S)").Controls.Add(msoControlButton)
        objCBCtl.Caption = "源泉徴収高計算書(&G)..."
        objCBCtl.OnAction = "mdlSyukei.GensenTyousyu"
        Set objCBCtl = objCB.Controls("集計(&S)").Controls.Add(msoControlPopup)
        objCBCtl.Caption = "年末調整(&N)"
        
            '「年末調整」コマンドの詳細
            Set objCBCtl = objCB.Controls("集計(&S)").Controls("年末調整(&N)").Controls.Add(msoControlButton)
            objCBCtl.Caption = "配偶者所得(&S)..."
            objCBCtl.OnAction = "mdlSyukei.CalculateHaigusya"
            '「年末調整」コマンドの詳細
            Set objCBCtl = objCB.Controls("集計(&S)").Controls("年末調整(&N)").Controls.Add(msoControlButton)
            objCBCtl.Caption = "保険料/住宅取得等特別控除等(&H)..."
            objCBCtl.OnAction = "mdlSyukei.LetHoken"
            '「年末調整」コマンドの詳細
            Set objCBCtl = objCB.Controls("集計(&S)").Controls("年末調整(&N)").Controls.Add(msoControlButton)
            objCBCtl.Caption = "前職分源泉徴収票(&G)..."
            objCBCtl.OnAction = "mdlSyukei.LetZensyoku"
            '「年末調整」コマンドの詳細
            Set objCBCtl = objCB.Controls("集計(&S)").Controls("年末調整(&N)").Controls.Add(msoControlButton)
            objCBCtl.Caption = "年末調整実行(&N)..."
            objCBCtl.OnAction = "mdlSyukei.CalculateNentyo"

    '「印刷」メニュー作成
    Set objCBCtl = objCB.Controls.Add(msoControlPopup)
    objCBCtl.Caption = "印刷(&P)"
    
        '「印刷」メニューのコマンド
        Set objCBCtl = objCB.Controls("印刷(&P)").Controls.Add(msoControlButton)
        objCBCtl.Caption = "社員一覧表(&S)..."
        objCBCtl.OnAction = "mdlPrint.PrintSyainItiran"
        Set objCBCtl = objCB.Controls("印刷(&P)").Controls.Add(msoControlButton)
        objCBCtl.Caption = "給与賞与明細書(&S)..."
        objCBCtl.OnAction = "mdlPrint.MeisaiForm"
        Set objCBCtl = objCB.Controls("印刷(&P)").Controls.Add(msoControlButton)
        objCBCtl.Caption = "賃金台帳(&T)..."
        objCBCtl.OnAction = "mdlPrint.TinginDautyo"
        Set objCBCtl = objCB.Controls("印刷(&P)").Controls.Add(msoControlButton)
        objCBCtl.Caption = "月別給与賞与集計表(&M)..."
        objCBCtl.OnAction = "mdlPrint.SiharaiItiran"
        Set objCBCtl = objCB.Controls("印刷(&P)").Controls.Add(msoControlButton)
        objCBCtl.Caption = "年末調整支援資料(&N)..."
        objCBCtl.OnAction = "mdlPrint.NentyoForm"
        objCBCtl.BeginGroup = True
        'Set objCBCtl = objCB.Controls("印刷(&P)").Controls.Add(msoControlButton)
        'objCBCtl.Caption = "社会保険月額算定届支援資料(&G)..."
        'objCBCtl.OnAction = "mdlPrint.SyakaiForm"
        'Set objCBCtl = objCB.Controls("印刷(&P)").Controls.Add(msoControlButton)
        'objCBCtl.Caption = "雇用保険確定申告支援資料(&K)..."
        'objCBCtl.OnAction = "mdlPrint.KoyouForm"
        Set objCBCtl = objCB.Controls("印刷(&P)").Controls.Add(msoControlButton)
        objCBCtl.Caption = "支給額金種支援資料(&K)..."
        objCBCtl.OnAction = "mdlPrint.KinsyuForm"
        objCBCtl.BeginGroup = True
                
    '「ツール」メニュー作成
    Set objCBCtl = objCB.Controls.Add(msoControlPopup)
    objCBCtl.Caption = "ツール(&T)"
    
        '「ツール」メニューのコマンド
        Set objCBCtl = objCB.Controls("ツール(&T)").Controls.Add(msoControlButton)
        objCBCtl.Caption = "金種計算支援(&K)..."
        objCBCtl.OnAction = "mdlTool.CalcKinsyu"
        Set objCBCtl = objCB.Controls("ツール(&T)").Controls.Add(msoControlButton)
        objCBCtl.Caption = "過去データ(&O)..."
        objCBCtl.OnAction = "mdlTool.SiharaiItiran_Old"
        
    '「ヘルプ」メニュー作成
    Set objCBCtl = objCB.Controls.Add(msoControlPopup)
    objCBCtl.Caption = "ヘルプ(&H)"
    
        '「ヘルプ」メニューのコマンド
        Set objCBCtl = objCB.Controls("ヘルプ(&H)").Controls.Add(msoControlButton)
        objCBCtl.Caption = "ヴァージョン情報(&A)..."
        objCBCtl.OnAction = "mdlTool.AboutFormShow"
    
    Set objCB = Nothing
    Set objCBCtl = Nothing

End Sub