Sub Test() Dim s As Shape Dim stl As OutlineStyle Set stl = OutlineStyles.Add() stl.DashCount = 1 stl.DashLength(1) = 20 stl.GapLength(1) = 1 OutlineStyles.Save Set s = ActiveLayer.CreateLineSegment(0,0,5,5) s.Outline.Width = 0.1 s.Outline.Style = stl OutlineStyles.Remove stl.IndexEnd Sub