Format primary and secondary axes with VBA
My code is:
Application.ActiveChart.Parent.Name = "graph"
'ActiveChart.SetElement (msoElementPrimaryValueAxisTitleRotated)
ActiveSheet.ChartObjects("GRAPH").Activate
ActiveChart.Axes(xlValue, xlPrimary).Select
ActiveChart.Axes(xlValue, xlPrimary).AxisTitle.Text = "TITLE"
ActiveChart.Axes(xlValue, xlPrimary).MinimumScale = 0
ActiveChart.Axes(xlValue, xlPrimary).MaximumScale = 100
ActiveChart.Axes(xlValue, xlSecondary).Select
ActiveChart.Axes(xlValue, xlSecondary).AxisTitle.Text = "TITLE 2"
ActiveChart.Axes(xlValue, xlSecondary).MinimumScale = 0
ActiveChart.Axes(xlValue, xlSecondary).MaximumScale = 12
And it's useless and doesn't work!
Anyone have any ideas?
Bookmarks