|   |   | Object Model Reference : Classes : T : Transparency : Methods : Transparency.ApplyPatternTransparency | 
Function ApplyPatternTransparency(Type As cdrPatternFillType, [FileName As String], [PatternCanvasIndex As Long = 1], [Front As Long], [Back As Long = 100], [TransformWithShape As Boolean = False]) As PatternFill
Member of Transparency
The ApplyPatternTransparency method applies a pattern-fill transparency to a shape.
| 
Parameter
 | 
Description
 | 
| 
Type
 | 
Specifies, through a value of cdrPatternFillType, the type of pattern-fill transparency
 | 
| 
FileName
 | 
Specifies the full path name of the graphic to import as the pattern-fill transparency. This parameter is optional.
 | 
| 
PatternCanvasIndex
 | 
Specifies the pattern canvas in the pattern-fill transparency. This parameter is optional, and its default value is 1.
 | 
| 
Front
 | 
This parameter is optional, and its default value is 0.
 | 
| 
Back
 | 
This parameter is optional, and its default value is 100.
 | 
| 
TransformWithShape
 | 
Specifies whether to transform the pattern-fill transparency along with any changes made to the shape. A value of True changes the pattern-fill transparency along with its shape. This parameter is optional, and its default value is False.
 | 
The following VBA example applies a two-color pattern-fill transparency to a rectangle.
| Sub Test() | 
|  Dim s As Shape | 
|  Set s = ActiveLayer.CreateRectangle(0, 0, 2, 2) | 
|  s.Fill.UniformColor.RGBAssign 0, 0, 255 | 
|  s.Transparency.ApplyPatternTransparency cdrTwoColorPattern, , 6 | 
| End Sub | 
|   |   |   | 
Copyright 2013 Corel Corporation. All rights reserved.