Excel VBA Set Horizontal & Vertical Text alignment of Active Cell/Selection

How to Set Horizontal & Vertical Text alignment of Active Cell/Selection in Excel using VBA ?

SolidworksApi macros