Object Model Reference : Classes : A : Application : Properties : Application.PatternCanvases
|
|
| Object Model Reference : Classes : A : Application : Properties : Application.PatternCanvases |
Property PatternCanvases As PatternCanvases
Member of Application
The PatternCanvases property returns the collection of available PatternCanvas objects (two-color pattern fills).
The PatternCanvases property returns a read-only value.
The following VBA example applies a predefined pattern fill, overlaid with a checkerboard pattern, to an ellipse.
Sub CanvasPattern() |
Dim s As Shape |
Dim pf As PatternFill |
Dim cnv As New PatternCanvas |
cnv.PutCopy PatternCanvases(2) |
Set s = ActiveLayer.CreateEllipse(8, 7, 3, 4) |
s.Fill.ApplyNoFill |
Set pf = s.Fill.ApplyPatternFill(cdrTwoColorPattern, , , CreateColorEx(5005, 255, 0, 0), _ |
CreateColorEx(5005, 255, 255, 0)) |
pf.Canvas = cnv |
End Sub |
|
|
|
|
Copyright 2013 Corel Corporation. All rights reserved.