Change Text Attributes

Hopefully the attached image will show what I am after, but what I would like some help on is to

have a macro that will uncheck all the boxes in the Change Text Attributes dialog window and check

the Slant box with a slant of 30 and change the Disable to Enable.

Thanks much,

Craig (