Transparency.ApplyTextureTransparency

Function ApplyTextureTransparency(TextureName As String, [LibraryName As String]) As TextureFill

The ApplyTextureTransparency method applies a texture-fill transparency to a shape.


Parameters	Description
TextureName	Specifies the name of the texture fill to apply
LibraryName	Specifies the name of a texture library for texture-fill patterns This parameter is optional.

The following code example applies a texture transparency to a rectangle:

Sub Test() 
 Dim s As Shape 
 Set s = ActiveLayer.CreateRectangle(0, 0, 2, 2) 
 s.Fill.UniformColor.RGBAssign 0, 128, 0 
 s.Outline.Type = cdrNoOutline 
 s.Transparency.ApplyTextureTransparency "Cosmic Energy", "" 
End Sub