Sub Test() ActiveShape.Text.AlignPropertiesInRange(2, 2, cdrWordIndexing).VerticalCharacterShift = -10End Sub