メニュー作成

Public Function CreateMenu()

    Dim MenuItem As Object
    Dim MenuControls As Object

    ' 既に作成済みだった場合、何もしない
    Set MenuControls = Application.CommandBars("Worksheet Menu Bar").Controls
    For Each MenuItem In MenuControls
        If (MenuItem.Caption = APP_MENUNAME) Then Exit Function
    Next

    ' 新しいメニューを追加する
    Set MenuItem = MenuControls.Add(Type:=msoControlPopup)
    MenuItem.BeginGroup = True          '他メニューと異なるグループにしたい場合 True を設定
    MenuItem.Caption = APP_MENUNAME     'メニューの見出し
    MenuItem.OnAction = "InputCommand"  '実行する関数名

End Function

  • 最終更新:2012-08-21 11:25:23

このWIKIを編集するにはパスワード入力が必要です

認証パスワード