Object Model Reference : Classes : T : Transparency : Methods : Transparency.Freeze |
Sub Freeze()
Member of Transparency
The Freeze method freezes a transparency.
The following VBA example creates a circle and adds a rectangle on top of it. It then 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 |
Copyright 2013 Corel Corporation. All rights reserved.