Object Model Reference : Classes : S : Shape : Properties : Shape.Transparency
|
|
| Object Model Reference : Classes : S : Shape : Properties : Shape.Transparency |
Property Transparency As Transparency
Member of Shape
The Transparency property returns a Transparency object that represents the transparency settings for the active shape.
The Transparency property returns a read-only value.
The following VBA example applies a 40% uniform transparency to all rectangles and a fountain transparency to all ellipses on a page.
Sub Test() |
Dim s As Shape |
For Each s In ActivePage.Shapes |
Select Case s.Type |
Case cdrRectangleShape |
s.Transparency.ApplyUniformTransparency 40 |
' Working around the ApplyUnifromTransparency method |
If s.Transparency.Uniform <> 40 Then |
s.Transparency.Uniform = 40 |
End If |
Case cdrEllipseShape |
s.Transparency.ApplyFountainTransparency Angle:=45 |
Case Else |
If s.Transparency.Type <> cdrNoTransparency Then |
s.Transparency.ApplyNoTransparency |
End If |
End Select |
Next s |
End Sub |
|
|
|
|
Copyright 2013 Corel Corporation. All rights reserved.