Properties.Count

Property Count As Long

The Count property returns the number of data items assigned to an object.

The Count property returns a read-only value.

The following code example creates an ellipse and assigns the number 2 to its Properties collection. It then displays the number of elements in the collection (1).

Sub Test() 
 Dim s As Shape 
 Set s = ActiveLayer.CreateEllipse(0, 0, 2, 2) 
 s.Properties("MyMacroParam", 0) = 2 
 MsgBox s.Properties.Count 
End Sub