Each of the reference series within the collection.
object.Item(aIndex)
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISReferenceSeriesCollection interface |
|
aIndex |
In, Required | int |
The index of the reference series |
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)
In Profile Client v8 on User Interface Reference Series can be found in
.