In Keynote, is there any way to assign shortcut keys to select specific fonts

fontkeynote

I'm writing a series of lectures where I use a different font to indicate code. Is there any way to assign new shortcut keys/key combinations to select the two fonts I want?

Best Answer

I didn't find any way to modify the style of the selection, but you could use UI scripting to select a font from the format bar.

tell application "System Events" to tell process "Keynote"
    tell pop up button 1 of window 1
        click
        click menu item "Menlo" of menu 1
    end tell
end tell

You could assign shortcuts to the scripts with FastScripts or by creating Automator services.