Add secondary horizontal axis using vba

[jaffacake]

Hi all,

I'm trying to add a secondary axis to chart. When i've recorded the macro and tried to run it it fails on the selection line...

Can anyone expalin how i can do this using vba?

    ActiveChart.HasAxis(xlValue, xlSecondary) = True
    ActiveChart.Axes(xlCategory, xlSecondary).Select
    ActiveChart.Axes(xlCategory, xlSecondary).MaximumScale = 1
    Selection.TickLabels.NumberFormat = "h:mm:ss;@"
    Selection.TickLabels.NumberFormat = "[$-409]hh:mm:ss AM/PM;@"

 

[jaffacake]

Sorted - i was getting confused between xlCategory and XlValue.


ActiveChart.HasAxis(xlValue, xlSecondary) = True
ActiveChart.Axes(xlValue, xlSecondary).Select
ActiveChart.Axes(xlValue, xlSecondary).MaximumScale = 1
ActiveChart.HasAxis(xlCategory, xlSecondary) = True
ActiveChart.Axes(xlCategory, xlSecondary).Select
ActiveChart.Axes(xlCategory, xlSecondary).MaximumScale = 1
Selection.TickLabels.NumberFormat = "[$-409]hh:mm:ss AM/PM;@"