Example: Range

Private Sub SetRange()
With Trend1
With .Pens.Item(1)
.Min = -100
.Max = 100
End With
With .YAxis
' Use the pen's min/max values.
.MinMaxOption = rstPresetMinMax
' Use a separate range for each pen.
.ScalingOption = rstLineScale
'Show the YAxis labels, which include the min and max
.DisplayScale = True
End With
End With
End Sub