Sub Test() Dim stl As OutlineStyle Set stl = OutlineStyles.AddStyle(OutlineStyles(2)) stl.DashLength(1) = 3 OutlineStyles.SaveEnd Sub