Transparency.Texture

Property Texture As TextureFill

The Texture property returns a TextureFill object that represents the properties of a texture transparency.

The following code example creates a rectangle and applies a texture transparency to it:

Sub Test() 
 Dim s As Shape 
 Set s = ActiveLayer.CreateRectangle(0, 0, 2, 2) 
 s.Fill.UniformColor.RGBAssign 0, 0, 255 
 s.Transparency.ApplyTextureTransparency "Water Color2 2C", "" 
 s.Transparency.Texture.Properties("Background:").Value = 
CreateRGBColor(0, 0, 0) 
End Sub