Transparency.Uniform

Property Uniform As Long

Member of Transparency

The Uniform property returns or sets a percentage value that indicates the level of a uniform transparency. Higher values indicate a greater degree of transparency.

The following code example sets the transparency of all objects with a uniform transparency to 50%:

Sub Test() 
 Dim s As Shape 
 For Each s In ActivePage.Shapes 
  If s.Transparency.Type = cdrUniformTransparency Then 
   s.Transparency.Uniform = 50 
  End If 
 Next s 
End Sub 

Copyright 2007 Corel Corporation. All rights reserved.