Microsoft Access 掲示板

ショートカットメニューのカスタマイズ

1 コメント
views
4 フォロー

お世話になります。

レポートのプレビュー表示の際のショートカットメニューのカスタマイズを
ネットから以下コード入手しました。
レポートプロパティの「ショートカットメニュー」には「cmdReportRightClick」を
入れているのですが、「cmdReportRightClick」オブジェクトが見つかりません と
メッセージが出ます。
何が原因なのか教えてください。

Public Sub CreateReportShortcutMenu() 'ショートカットメニューカスタマイズ

    Dim cmbRightClick As Office.CommandBar
    Dim cmbControl As Office.CommandBarControl

    Set cmbRightClick = CommandBars.Add("cmdReportRightClick", msoBarPopup, False, True)

    With cmbRightClick

        '印刷
        Set cmbControl = .Controls.Add(msoControlButton, 2521, , , True)
        cmbControl.Caption = "即印刷"

        '印刷
        Set cmbControl = .Controls.Add(msoControlButton, 15948, , , True)
        cmbControl.Caption = "印刷"

        'ページ設定
        Set cmbControl = .Controls.Add(msoControlButton, 247, , , True)
        cmbControl.Caption = "ページ設定"

        'メールで送る
        Set cmbControl = .Controls.Add(msoControlButton, 2188, , , True)
        '新しいグループ開始
        cmbControl.BeginGroup = True
        cmbControl.Caption = "メールで送る"

        'PDFまたはXPS
        Set cmbControl = .Controls.Add(msoControlButton, 12499, , , True)
        cmbControl.Caption = "PDFまたはXPSとして出力"

        '閉じる
        Set cmbControl = .Controls.Add(msoControlButton, 923, , , True)
        '新しいグループ開始
        cmbControl.BeginGroup = True
        cmbControl.Caption = "閉じる"

    End With

    Set cmbControl = Nothing
    Set cmbRightClick = Nothing

End Sub

Kitty
作成: 2019/10/15 (火) 11:24:27
通報 ...
1
Kitty 2019/10/15 (火) 13:55:26 e4054@a3086

すみません!解決しました