| 
    
     |  | こんにちは。 >このマクロ記述を別のマクロからキックしたいんです。
 >実行したいステートメント
 >Application.OnKey "^{m}", ""
 >のみを実行するのが理想ですぅ♪
 
 VBスクリプトを用いるのが簡単な方法だと思います。
 一例ですがマクロの内容によっては作りこみが必要かも...
 以下サイトを参考にしました。
 ht tp://www2.aqua-r.tepm.jp/~kmado/kvba.htm
 E03M108 VBAでスクリプトを使用する
 
 Sub test_ScriptControl()
 Dim ss$
 ss = Range("A1") 'セルA1に Application.OnKey "^{m}", "" 等と記述
 With CreateObject("ScriptControl")
 .Language = "VBScript"
 .AddObject "Application", Application, True
 .AddCode "Sub Sub1" & vbNewLine & ss & vbNewLine & "End Sub"
 .Run "Sub1"
 End With
 End Sub
 
 
 |  |