WitsEvents 教えてくださいな！ (ID：81478)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

Option Explicit
Dim xlApp As Object
Dim MnuBar As Object
Dim Ctrl As Object
Dim MnuItem As Object
Sub main()
Set xlApp = CreateObject("Excel.Application") 'エクセル立ち上げ
   xlApp.Workbooks.Add
   xlApp.Visible = True
   xlApp.Caption = "通信システム"
     Set MnuBar = xlApp.CommandBars("Worksheet Menu Bar") 'メニューの新規追加
     
    With MnuBar
        .Reset 'まず  リセット
       
     Set Ctrl = .Controls.Add(10)
       With Ctrl
        .Caption = "通信" 'メニュー名
      
        Set MnuItem = .Controls.Add(1)
             With MnuItem
               .Caption = "読出" 'ボタン名
               .OnAction = "yomidasi"
             End With
     
        Set MnuItem = .Controls.Add(1)
             With MnuItem
               .Caption = "書込" 'ボタン名
               .OnAction = "kakikomi"
             End With
    
      End With
    End With
 End Sub

すいませんね  マルチポストで！

で  できたコードがこれ（素人プログラムです）
エクセルを立ち上げ
メニュー”通信”を追加
メニューのボタンが読出し  と  書込み

で  この  メニューをクリックすると
”マクロがありません”
が表示されてしまう（VBAのマクロをさがしに行ってしまう）
この  追加メニューの  イベントは  どうやって  検出します？？

←解決時は質問者本人がここをチェックしてください。

戻る