expression.Selection
expression Required. An expression that returns one of the objects in the Applies To list.
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.
Sub ChartSpace1_SelectionChange()
Dim chConstants
Dim minval
Dim maxval
Set chConstants = ChartSpace1.Constants
If ChartSpace1.SelectionType = chConstants.chSelectionAxis Then
minval = ChartSpace1.Selection.Scaling.Minimum
maxval = ChartSpace1.Selection.Scaling.Maximum
MsgBox "minimum = " & minval & " maximum = " & maxval
End If
End Sub