TextureFillProperty.Value

Property Value As Variant

The Value property returns or sets the value (numeric or color) of a property of a texture fill.

The following code example creates a rectangle and applies a texture fill to it. It then modifies two parameters of the fill.

Sub Test() 
 Dim s As Shape 
 Dim tf As TextureFill 
 Set s = ActiveLayer.CreateRectangle(0, 0, 2, 2) 
 Set tf = s.Fill.ApplyTextureFill("Dark Cloud", "Samples 8") 
 tf.Properties("Texture #:").Value = 150 
 tf.Properties("Top left:").Value = CreateRGBColor(255, 0, 0) 
End Sub