[[20220323134242]]　『Onkeyで【Alt】がうまく動作しない』（TF）　ページの最後に飛ぶ

『Onkeyで【Alt】がうまく動作しない』（TF）

目的としては、ショートカットキーをアドイン化（リボンとして使用）
いたしたく、以下のような設定をしているのですが、うまく動かず質問させていただきました。

オブジェクト名：myFunction_sc

Function Align_Left_sc() '文字列の左揃え

    Selection.HorizontalAlignment = xlLeft
End Function

Function Align_Right_sc() '文字列の右揃え

    Selection.HorizontalAlignment = xlRight
End Function

Public Function Font_Black() ' 文字色：黒

    Selection.Font.Color = RGB(50, 50, 50)
End Function

オブジェクト名：ShortCut

Public Sub Auto_Open() 'ブックオープン時に実行

    Call ShortCut.shortcut_enable
End Sub

Function shortcut_enable()

省略

        Application.OnKey "%^R", "myFunction_sc.Align_Right_sc" '文字列の右揃え

        Application.OnKey "+^K", "myFunction_sc.Font_Black" ' 文字色：黒
省略
End Function

としているのですが、
Alt+shift＋R の文字列の右揃えがうまく動かないため質問させていただきました。

何か見落としている点等あればご指摘いただけますと幸いです。

＜使用 Excel：Excel2016、使用 OS：Windows10 ＞

Sub xxx()

            Application.OnKey "%^R", "FontColor.Interior_Navy" '文字列の右揃え

End Sub

こちらの実行キーがなぜか
Ctrl Shift Alt R
になってしまうのが、原因の一因なのでは以下と推測しております

スクリーンキーボードでも正しくキーが押されていることは確認しております。
（TF） 2022/03/23(水) 14:44

"^m"は、Ctrl+M

"^M"は、Ctrl+Shift+M

ということを、インターネットの記載で見つけました。

しかし、以下のショートカットキーを指定するにはどうすればいいかを
解決することができません。

お手数ですがv、お力添えいただけますでしょうか。
ショートカットキー: Alt + Shift + R
ショートカットキー: Alt + Shift + L
ショートカットキー: Alt + Shift + E
（TF） 2022/03/23(水) 14:59

ご返信ありがとうございます。

"+%e"

こちらで設定しているにも関わらず、
Ctrl Shift Alt E
になってしまします。

私の環境だけでしょうか。
（TF） 2022/03/23(水) 16:22

他のキーで試してください。
何かしら競合して、動作しないものと推測します。
（tkit） 2022/03/23(水) 17:00

返信ありがとうございます。

onkeyで設定したものは、てっきり何物にも優先されると考えてしまっておりました。
無事に他のキーを設定することで解決いたしました。

よろしくお願いいたします。
（TF） 2022/03/23(水) 18:01

コメント返信：