| Name | Type | Description |
|---|---|---|
| SettingArray |
Variant
|
Sub Test()
Dim s As Shape
Dim tf As TextureFill
Set s = ActiveLayer.CreateRectangle(0, 0, 2, 2)
Set tf = s.Fill.ApplyTextureFill("Vapor 2C")
tf.SetProperties 20611, 30, 75, CreateRGBColor(0, 0, 0), CreateRGBColor(117, 197, 240), 20
End Sub