Object Model Reference : Classes : T : Transparency : Properties : Transparency.Pattern |
Property Pattern As PatternFill
Member of Transparency
The Pattern property returns a PatternFill object representing the settings for a pattern-fill transparency.
The following VBA example creates a rectangle and applies a two-color pattern-fill transparency to it. It then skews the pattern by 20°.
Sub Test() |
Dim s As Shape |
Set s = ActiveLayer.CreateRectangle(0, 0, 2, 2) |
s.Fill.UniformColor.RGBAssign 255, 0, 0 |
s.Transparency.ApplyPatternTransparency cdrTwoColorPattern, , 1 |
s.Transparency.Pattern.BackColor.GrayAssign 255 |
s.Transparency.Pattern.SkewAngle = 20 |
End Sub |
Copyright 2013 Corel Corporation. All rights reserved.