DoodlesMama
New Member
- Joined
- Aug 26, 2012
- Messages
- 14
Using Windows 7
Office Excel 2010
I'm trying to add a reverse order for the axis for a chart that populates based on various data. Because of this, some (NOT ALL) of the charts need to have the reverse order = False.
I have tried adding the statement (.Axes(xlValue).ReversePlotOrder = False) in various combinations, but nothing works. Any suggestions?
Option Explicit
Public Chart1 As New ParetoChartClass
Public Chart2 As New TrendChartClass
Sub Set_Drill_Down_Ranges()
Set rnga2 = Sheets("DRILL DOWN DATA").Range("A2")
Set rngb2 = Sheets("DRILL DOWN DATA").Range("B2")
Set rngb3 = Sheets("DRILL DOWN DATA").Range("B3")
Set rngb5 = Sheets("DRILL DOWN DATA").Range("B5")
Set rngc2 = Sheets("DRILL DOWN DATA").Range("C2")
Set rngc3 = Sheets("DRILL DOWN DATA").Range("C3")
Set rngc5 = Sheets("DRILL DOWN DATA").Range("C5")
Set rngd1 = Sheets("DRILL DOWN DATA").Range("D1")
Set rngd3 = Sheets("DRILL DOWN DATA").Range("D3")
Set rngd5 = Sheets("DRILL DOWN DATA").Range("D5")
Set rnge3 = Sheets("DRILL DOWN DATA").Range("E3")
Set rnge5 = Sheets("DRILL DOWN DATA").Range("E5")
Set rngf2 = Sheets("DRILL DOWN DATA").Range("F2")
Set rngf3 = Sheets("DRILL DOWN DATA").Range("F3")
Set rngf5 = Sheets("DRILL DOWN DATA").Range("F5")
Set rngg5 = Sheets("DRILL DOWN DATA").Range("G5")
Set rngh3 = Sheets("DRILL DOWN DATA").Range("H3")
Set rngh5 = Sheets("DRILL DOWN DATA").Range("H5")
End Sub
Sub Drill_Down_FIFT()
rngh3 = "FIFT %"
Get_Trend_Data1
Get_Pareto_Data1
Sheets("CHARTS").ChartObjects("Chart 3").Chart.SeriesCollection(1).DataLabels.NumberFormat = "0.0%"
Reset_Drill_Down_Selection_Buttons1
End Sub
Office Excel 2010
I'm trying to add a reverse order for the axis for a chart that populates based on various data. Because of this, some (NOT ALL) of the charts need to have the reverse order = False.
I have tried adding the statement (.Axes(xlValue).ReversePlotOrder = False) in various combinations, but nothing works. Any suggestions?
Option Explicit
Public Chart1 As New ParetoChartClass
Public Chart2 As New TrendChartClass
Sub Set_Drill_Down_Ranges()
Set rnga2 = Sheets("DRILL DOWN DATA").Range("A2")
Set rngb2 = Sheets("DRILL DOWN DATA").Range("B2")
Set rngb3 = Sheets("DRILL DOWN DATA").Range("B3")
Set rngb5 = Sheets("DRILL DOWN DATA").Range("B5")
Set rngc2 = Sheets("DRILL DOWN DATA").Range("C2")
Set rngc3 = Sheets("DRILL DOWN DATA").Range("C3")
Set rngc5 = Sheets("DRILL DOWN DATA").Range("C5")
Set rngd1 = Sheets("DRILL DOWN DATA").Range("D1")
Set rngd3 = Sheets("DRILL DOWN DATA").Range("D3")
Set rngd5 = Sheets("DRILL DOWN DATA").Range("D5")
Set rnge3 = Sheets("DRILL DOWN DATA").Range("E3")
Set rnge5 = Sheets("DRILL DOWN DATA").Range("E5")
Set rngf2 = Sheets("DRILL DOWN DATA").Range("F2")
Set rngf3 = Sheets("DRILL DOWN DATA").Range("F3")
Set rngf5 = Sheets("DRILL DOWN DATA").Range("F5")
Set rngg5 = Sheets("DRILL DOWN DATA").Range("G5")
Set rngh3 = Sheets("DRILL DOWN DATA").Range("H3")
Set rngh5 = Sheets("DRILL DOWN DATA").Range("H5")
End Sub
Sub Drill_Down_FIFT()
rngh3 = "FIFT %"
Get_Trend_Data1
Get_Pareto_Data1
Sheets("CHARTS").ChartObjects("Chart 3").Chart.SeriesCollection(1).DataLabels.NumberFormat = "0.0%"
Reset_Drill_Down_Selection_Buttons1
End Sub