Example: CustomMaxOption and CustomMinOption properties

Private Sub SetCustomRange()
With Trend1
With .YAxis
.MinMaxOption = rstCustomMinMax
  .CustomMinOption = rstCustomMinMaxValue
  .CustomMaxOption = rstCustomMinMaxValue
.CustomMin = -100
.CustomMax = 100
End With
End With
End Sub