Combo Chart, how can I control 2nd axis with slicer

[ilcaa]

i have a combo chart and i want the slicer to control the values on secondary axis

how? thanks

 

[Worf]

An example:

' sheet module
Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
Dim si, co As ChartObject, ax As Axis, v$
Set co = Me.ChartObjects("chart 2")
Set ax = co.Chart.Axes(xlValue, xlSecondary)
For Each si In ActiveWorkbook.SlicerCaches("Slicer_Store_Name").SlicerItems
    If si.Selected = True Then
        v = si.Name
        Exit For
    End If
Next
Select Case v
    Case Is = "g"
        ax.MaximumScale = 8
    Case Is = "k"
        ax.MaximumScale = 5
End Select
End Sub