Excel2000 VBA 右クリックメニューにマクロを登録 その２

Excel2000 VBA　右クリックメニューにマクロを登録 その２

Sub 右クリックメニューサブ有り()
'
'参考サイト　http://www.seiji-tsubosaki.net/ExcelTech/ExcelProfessionalEngineerTechnic/Contents_03.htm
'

' 右クリックメニューを初期設定に戻す
    Application.CommandBars("Cell").Reset
     
' 右クリックメニュー
    With Application.CommandBars("Cell") _
        .Controls.Add(Type:=msoControlPopup)
        .BeginGroup = True                    　　　　　　　　　 '区切り線
        .Caption = "ツール"                     　　　　　　　　　'追加項目
        With .Controls.Add(Type:=msoControlButton)    'サブ項目１
            .Caption = "アクティブBOOK情報"          　　　 'サブ項目１表示名
            .FaceId = 931                           　　　　　　　　'アイコン番号
            .OnAction = "book_info_2"              　　　　　  '実行するマクロ
        End With
          With .Controls.Add(Type:=msoControlButton)    'サブ項目２
              .Caption = "区切り文字展開"               　　　　 'サブ項目２表示名
              .FaceId = 931                            　　　　　　　　　 'アイコン番号
              .OnAction = "選択範囲列を指定した文字で文字列を展開"                '実行するマクロ
          End With
          With .Controls.Add(Type:=msoControlButton)
              .Caption = "サブ項目３"
              .FaceId = 931
              .OnAction = "実行マクロ３"
          End With
      End With
     
  End Sub

 

 

タグ：Excel2000 VBA