Outline.ConvertToObject

Function ConvertToObject() As Shape

The ConvertToObject method converts an object’s outline into a separate shape and returns the new Shape object. If the BehindFill option is enabled, the outline object appears behind the original object.

The following code example creates an ellipse with a thick outline. A shape is created from the outline and is offset by 1" both horizontally and vertically.

Sub Test() 
 Dim s1 As Shape, s2 As Shape 
 Set s1 = ActiveLayer.CreateEllipse2(3, 3, 2) 
 s1.Fill.UniformColor.RGBAssign 255, 0, 0 
 s1.Outline.Width = 0.2 
 s1.Outline.Color.RGBAssign 0, 0, 255 
 Set s2 = s1.Outline.ConvertToObject 
 s2.Move 1, 1 
End Sub