Transparency.Freeze

Sub Freeze()

The Freeze method freezes a transparency.

The following code example creates a circle and adds a rectangle on top of it. It applies a transparency to the rectangle, freezes the transparency, and moves the resulting frozen transparency group diagonally.

Sub Test() 
 Dim s1 As Shape, s2 As Shape 
 Set s1 = ActiveLayer.CreateEllipse2(0, 0, 1) 
 s1.Fill.UniformColor.RGBAssign 0, 128, 0 
 Set s2 = ActiveLayer.CreateRectangle(0, 0, 2, 2) 
 s2.Fill.ApplyFountainFill CreateRGBColor(255, 0, 0), 
CreateRGBColor(255, 255, 0) 
 s2.Outline.Type = cdrNoOutline 
 s2.Transparency.ApplyTextureTransparency "Cosmic Energy", "" 
 s2.Transparency.Freeze 
 s2.ParentGroup.Move 1, 1 
End Sub