PatternCanvases.Count

Property Count As Long

The Count property returns the number of pattern canvases available in the PatternCanvases collection.

The Count property returns a read-only value.

The following VBA example creates a sample tile of each available two-color pattern fill.

Sub Test()

Const cx As Long = 8

Const cy As Long = 10

Dim i As Long

Dim nx As Long, ny As Long

Dim x As Double, y As Double

Dim sx As Double, sy As Double

Dim s As Shape

sx = ActivePage.SizeWidth / cx

sy = ActivePage.SizeHeight / cy

nx = 0

ny = 0

For i = 1 To PatternCanvases.Count

x = nx * sx

y = ny * sy

Set s = ActiveLayer.CreateRectangle2(x, y, sx, sy)

s.Fill.ApplyPatternFill cdrTwoColorPattern, , i

nx = nx + 1

If nx >= cx Then

nx = 0

ny = ny + 1

End If

Next i

End Sub