ISReferenceSeriesCollection.Count

Description

The number of reference series within the collection.

Syntax

object.Count

Part Attribute Type Description
object Required
The object always implements the ISReferenceSeriesCollection interface
Restriction: This property is readonly.

Return Value

int

Example

Display the number of reference series and some information about them.

Dim aReferenceSeriesCollection
Dim aReferenceSeries
Dim aMessage
Dim i   

Set aReferenceSeriesCollection = Profile.GetReferenceSeriesCollection

aMessage = "Reference Series Count = " & aReferenceSeriesCollection.Count & vbNewLine

for i = 0 to aReferenceSeriesCollection.Count - 1
  set aReferenceSeries = aReferenceSeriesCollection.Item (i)
  aMessage = aMessage & vbNewLine & (i + 1) & ". " &_
    "Series Name: " & aReferenceSeries.SeriesName & vbNewLine &_
    "-Comment: " & aReferenceSeries.Comment & vbNewLine &_
    "-ID: " & aReferenceSeries.ID & vbNewLine &_   
    "-Is Range: " & aReferenceSeries.IsRange & vbNewLine  
next  

Profile.MsgBox(aMessage)   
Note:

In Profile Client v8 on User Interface Reference Series can be found in Maintain > Reference Series.

Version information

Added in v7.8.0