HOME>TOP>その他

ショートカットメニューにマクロを登録するには?


キーワード>>Shell

Point :右クリックで出てくるショートカットメニューに自作マクロを登録したい。

Sub Test()
  With CommandBars("CELL").Controls.Add _
    (Type:=msoControlButton, Temporary:=True)
   .BeginGroup = True
   .Caption = "マイマクロ"
   '右クリックしたときに出る文字

   .OnAction = "Test"
   '実際に実行されるマクロ名
  End With
End Sub

Sub Test()
  'これが実行されます。
End Sub

'元に戻すには・・・
Application.CommandBars("CELL").Reset


当サイトの全ての内容の無断転載等を一切禁止します。
掲載サンプルコードの使用に関して、直接・間接
を問わず生じた一切の損害について如何なる責任も負いません。
Copyright (C) 2000-2001 reizo All rights reserved.