ms-access - エラー 1004 MacroOption Access 2007 使用時

Question

Access 2007 にN枚のシートを含むワークブックを作成するアプリケーションがあります。このワークブックに挿入するマクロを作成しましたが、これは完全に正常に機能します。しかし、次のステップは、これまでオンラインで支援する方法を見てきたマルコにショートカット キーを追加することです。最初の試行ではエラーは発生しませんが、ショートカット キーも割り当てられません

1) Excel_App.OnKey "^{h}", "Sheet1.HideChange"

2)Excel_App.MacroOptions Macro:="Sheet1.HideChange", Description:="Hide Columns in Line Level", hasshortcutkey:=True, ShortcutKey:="h"

メソッドに割り当てられた変数

Dim Excel_App As Excel.Application
Dim wkb As Excel.Workbook
Dim wks, wks2, wks3, wks4, wks5, wks6, wks7, wks8 As Excel.Worksheet
Dim i As Integer
Dim xlmodule As Object 'VBComponent
Dim coaches As Recordset
Set Excel_App = New Excel.Application
Excel_App.Visible = False
Set wkb = Excel.Workbooks.Add

以下は、最後にショートカットを配置した場所です。保存の前後にコード行を移動しようとしましたが、それでも1004エラーが発生します。

    With wkb


             ActiveSheet.Move Before:=Worksheets(1)
            .Title = "CHANGE REQUEST"
            .Subject = "CHANGE REQUEST"

                      ' Add a macro to the module...
                     Dim strCode As String
                     strCode = _
                        "Sub HideChange()" & vbCr & _
                        "  Columns(""A:A"").Select Selection.EntireColumn.Hidden = True  " & vbCr & _
                        "end sub"
                    Dim module As VBComponent
                    Set module = wkb.VBProject.VBComponents(2)
                    module.CodeModule.AddFromString strCode
             Excel_App.MacroOptions Macro:="Sheet1.HideChange", Description:="Hide Columns in Line Level", hasshortcutkey:=True, ShortcutKey:="h"
            .SaveAs FileName:=strDir & "\CHANGE REQUEST FORM.xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled

            .Close
    End With

 Excel_App.Quit

これがどのように機能するかを理解するのを手伝ってくれる人はいますか? 私の質問の詳細が必要な場合は、お尋ねください。お時間をいただきありがとうございます。