ISRefSeriesAxis.Dimension

Example

Display the number of reference series and some information about their axes, including their dimension units.

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