Sub Test() With ActiveShape.Text.Selection .LineSpacingType = cdrPercentOfPointSizeLineSpacing .LineSpacing = 120 .BeforeParagraphSpacing = 100 .AfterParagraphSpacing = 50 End WithEnd Sub