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.


Parameters	Description
Type	Specifies the type of pattern-fill transparency and has a value of cdrPatternFillType
FileName	Specifies the full path name of the graphic that is imported as a pattern-fill transparency This parameter is optional.
PatternCanvasIndex	Specifies the pattern canvas in a 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	If set to True, the pattern-fill transparency changes according to changes in its Shape object. This parameter is optional, and its default value is False.

The following code example applies a two-color pattern 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