| Name | Type | Description |
|---|---|---|
| TextureName |
String
|
|
| LibraryName |
String
|
Sub Test() Dim s As Shape Set s = ActiveLayer.CreateRectangle(0, 0, 5, 5) s.Fill.ApplyTextureFill "Blend Edges" End Sub Sub Test() Dim s As Shape Set s = ActiveLayer.CreateRectangle(0, 0, 5, 5) s.Fill.ApplyTextureFill "Alien Eyes", "Samples 9" End Sub