Sub Test() With ActiveShape.Text.AlignProperties .MaxCharacterSpacing = 200 .MinWordSpacing = 50 .MaxWordSpacing = 150 End WithEnd Sub