Previous Document Next Document

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


Transparency.ApplyUniformTransparency

Sub ApplyUniformTransparency(Value As Long)

Description

Member of Transparency

The ApplyUniformTransparency method applies a uniform-fill transparency to a shape.

Parameter
Description
Value
Specifies the level of transparency, measured as a percentage from 0 to 100 (where higher values indicate a greater degree of transparency)

VBA example

The following VBA example applies a uniform-fill transparency of 50% to a rectangle.

Sub Test()
 Dim s As Shape
 Set s = ActiveLayer.CreateRectangle(0, 0, 2, 2)
 s.Fill.ApplyFountainFill CreateRGBColor(255, 0, 0), CreateRGBColor(255, 255, 0)
 s.Outline.Type = cdrNoOutline
 s.Transparency.ApplyUniformTransparency 50
 s.Transparency.Uniform = 50 ' a workaround
End Sub

Previous Document Next Document Back to Top

Copyright 2013 Corel Corporation. All rights reserved.