ISRefSeriesAxis.Max

Example

Display the number of reference series and some information about their axes, including the maximum data values assigned to them.

sub main
  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 &_
      "Axis X " & GetAxisInfo(aReferenceSeries.AxisX) &_
      "Axis Y " & GetAxisInfo(aReferenceSeries.AxisY)
  next 'i 

  Profile.MsgBox(aMessage)
end sub

function GetAxisInfo(aAxis)
  Dim aInfo
  
  aInfo = "Title: " & aAxis.Title & vbNewLine &_
    "  -Max: " & aAxis.Max & vbNewLine &_  
    "  -Min: " & aAxis.Min & vbNewLine
  if not aAxis.Dimension is nothing then 
    aInfo = aInfo & "  -Dimension: " & aAxis.Dimension.Name & vbNewLine
  end if
  if not aAxis.Concept is nothing then  
    aInfo = aInfo & "  -Concept: " & aAxis.Concept.Name & vbNewLine
  end if  
  GetAxisInfo = aInfo
end function