Arched text effect

Is there an easier way, or a macro, to get this arced text effect? Thank you.