How do I add a button on the notebook menu bar to execute a number of keystrokes similar to a macro in Excel?

Question

Reading past efforts to "Macrofy" Mathematica, it appears that the choice is between "FrontEndExecute" and a ResourceFunction "AddMenuItem" both of which are daunting. I do not want to modify the front end and foul up all my other Mathematica activities. Presently I am regularly pasting a graphic into a notebook which I then want to center and make the cell unevaluatable. Doing that requires typing

<alt>RACCPV

It would be nice to program a hotkey for that.

@Kuba sent me in the right direction but the code example there

<|"Label" -> "Center", "ShortKey" -> "c", "Action" :>FrontEndExecute[{SelectionMove[InputNotebook[], All, CellContents], 
NotebookDelete@InputNotebook[]}]|>

represents just the danger I wish to avoid (my comment about "daunting" is like the other comment in this thread about FrontEndExecute entailing too much "burden"). While I know better than to evaluate something that deletes my entire notebook, what I do not know is what to substitute in its place. A snippet of code for my particular needs is what I am missing. Sorry to be such a wimp...

Answer 1

Does it fit your needs?

Module[{cell},
 FrontEndExecute[FrontEndToken[InputNotebook[], "Paste"]];
 SelectionMove[InputNotebook[], All, Cell];
 cell = First@SelectedCells@InputNotebook[];
 SetOptions[cell, TextAlignment -> Center, Evaluatable -> False]
]

You can test it with

CreatePalette @ Button["TEST", (*code here *)]

and if it does you can use it in NotebookActions like in 212851:

<|
  "Label"    -> "Paste and center", 
  "ShortKey" -> "c", 
  "Action"   :> (*code here *)
|>

If NotebookActions does not work the way you like it then consider using a Palette like in a test above. Here are more alternatives too: 217028