Object Model Reference : Classes : C : CloneLink : Methods : CloneLink.RestoreAllLinks |
Sub RestoreAllLinks()
Member of CloneLink
The RestoreAllLinks method restores all clone links and reapplies the properties of the master object to the clones.
The following VBA 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 |
Copyright 2013 Corel Corporation. All rights reserved.