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.RestoreAllLinksEnd Sub