Cel.CelItems

CelItems(strFilter As String) As CelItems

Parameters

strFilter As String

A Filter is not implemented yet. To avoid problems in future use always the asterisk...

Example:

Debug.Print zCelItems("*").Count

Remarks

Object to get all Items are actually in memory...

Sample:

'##########################################################
'### Get all CEL Items of the project				 ###
'##########################################################
Public Sub GetAllItems()
	Dim i As Integer
	'get all items in memory...
	For i = 0 To thisProject.Cel.CelItems("*").Count - 1
		'print text of item to outputwindow
		Debug.Print thisProject.Cel.CelItems("*").Item(i).Text
	Next i
End Sub

See Also

Cel, CelItems