Outline.ScaleWithShape

Property ScaleWithShape As Boolean

The ScaleWithShape property determines whether an object’s outline maintains the size proportions of the object. If this property is set to True, the outline’s properties are scaled along with its shape.

The following code example creates an ellipse and applies an outline that is 0.1" wide. The ellipse is then enlarged to twice its previous size, and the outline’s width (now at 0.2") is displayed.

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.Width 
End Sub