Add additional axis to chart using toggle button

[enbee]

Hi

I need to add an additional Y axis to a line graph and an additional line to go with it using a toggle button. eg: once the user clicks on the toggle button the additional line and axis will appear on the graph then click it again to remove the additional line and axis.

hope this makes sense

Any help is much appreciated

Nick

 

[p45cal]

run this macro on the button click (adapt heavily to your situation):

Sub blah()
With ActiveSheet.ChartObjects("Your Chart name").Chart
  For i = .SeriesCollection.Count To 1 Step -1
    If .SeriesCollection(i).AxisGroup = xlSecondary Then
      .SeriesCollection(i).Delete
      FoundSecondary = True
  End If
    Next i
  If Not FoundSecondary Then
    .SeriesCollection.Add Sheets("Your data sheet name").Range("C4:C15")
    .SeriesCollection(.SeriesCollection.Count).AxisGroup = 2
  End If
End With
End Sub

developed in Excel 2003 so in 2007 and above may not work.

 

[enbee]

Thank you very much! Worked perfectly

KR

N