Selection Property Example

The procedure in this example runs whenever the selection in the chart workspace changes. If the user selects an axis, the procedure displays the minimum and maximum values for the axis.

Private Sub ChartSpace1_SelectionChange()
    Set c = ChartSpace1.Constants
    If ChartSpace1.SelectionType = c.chSelectionAxis Then
        minval = ChartSpace1.Selection.Scaling.Minimum
        maxval = ChartSpace1.Selection.Scaling.Maximum
        MsgBox "minimum = " & minval & " maximum = " & maxval
    End If
End Sub