Previous Document Next Document

Object Model Reference : Classes : T : Transparency : Methods : Transparency.Freeze


Transparency.Freeze

Sub Freeze()

Description

Member of Transparency

The Freeze method freezes a transparency.

VBA example

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

Previous Document Next Document Back to Top

Copyright 2013 Corel Corporation. All rights reserved.