TextureFill.Properties

Property Properties As TextureFillProperties

The Properties property returns a TextureFillProperties object that allows you to return and modify parameters of a texture-fill pattern.

Each texture-fill pattern has a range of properties, and some textures have more properties than others. For example, the texture Heavenly Clouds has 9 properties, while the Midday Clouds texture has 6 properties.

The Properties property returns a read-only value.

The following code example applies a texture fill and changes two of its parameters:

Sub Test() 
 Dim s As Shape 
 Dim tf As TextureFill 
 Set s = ActiveLayer.CreateRectangle(0, 0, 4, 4) 
 Set tf = s.Fill.ApplyTextureFill("Banded malachite", "Samples") 
 tf.Properties("Softness %:").Value = 80 
 tf.Properties("1st mineral:").Value = CreateRGBColor(255, 0, 0) 
End Sub