Sub Test() Dim s As Shape Set s = ActiveLayer.CreateEllipse2(4, 4, 2) s.Outline.Width = 0.1 s.Outline.ScaleWithShape = True s.Stretch 2 MsgBox "Outline width is " & s.Outline.WidthEnd Sub