| Name | Type | Description |
|---|---|---|
| IndexOrName |
Variant
|
Sub Test() Dim s As Shape Set s = ActiveLayer.CreateRectangle(0, 0, 5, 5) s.Fill.ApplyPostscriptFill "Bubbles" End Sub