CloneLink.RestoreAllLinks

Sub RestoreAllLinks()

The RestoreAllLinks method restores all clone links and reapplies the properties of the master object to the clones.

The following code example creates a clone of a rectangle. Changes are applied to the clone, and then the changes are removed by reverting back to the master object.

Sub Test() 
 Dim s1 As Shape, s2 As Shape 
 Set s1 = ActiveLayer.CreateRectangle2(0, 5, 2.6, 1.8) 
 Set s2 = s1.Clone(4, -2) 
 s2.Fill.ApplyUniformFill CreateCMYKColor(22, 33, 45, 88) 
 s2.Outline.Width = 4 
 s2.Rectangle.SetRoundness 22 
 s2.SizeHeight = 4 
 s2.CloneLink.RestoreAllLinks 
End Sub