SetOptions[..., BaseStyle[...]] for all plots

Questions
1

In a deseperate bid to dispose of Courier and improve the lifetime of my keyboard I’d like to SetOptions for all Plots for BaseStyle, but I can’t get anything to work. This is as far as I got before I started typing everything by hand:

ReleaseHold /@ 
 Map[HoldComplete@
    SetOptions[#, 
     BaseStyle -> {FontFamily -> "Helvetica", FontSize -> 12, 
       FontWeight -> "Bold", FontColor -> RGBColor[.2, .55, .7]}] &, 
  Names["System`*Plot"]]

Any help would be gladly appreciated!

2

It looks like you are feeding SetOptions a string “Plot”

3

I am indeed. Should’ve checked the output of Names before posting. I don’t have Mathematica access for a while, does ToExpression on Slot fix this appropriately? Thanks for not ribbing on me, Chris.

4

ToExpression or Symbol will do what you want. InputForm will help show you what you are dealing with,

InputForm[Symbol /@ Names["System`*Plot"]]