L
looloo
Good Afternoon, I did an extensive search through the archives and
could not find a similar problem. I am trying to manipulate a chart
within a chart. I receive the following error on the last line of
code: automation error 2147221080 (800401a8)
Here is the portion of code where it bombs:
Sub CreateNewTrendChartNew()
Dim trendRng As Range, avgRng As Range, axisRng As Range
Dim data_sheet As Worksheet
Dim columnz900 As Integer
Dim seriesLoop As Integer
Dim Trends_Chart As Chart, TrendAvg_Chart As Chart
Set Weekly_WB = Workbooks("H4.weeklys.test.xls")
Set data_sheet = Weekly_WB.Sheets("DATA")
Set Trends_Chart = Weekly_WB.Charts("Trends")
Trends_Chart.Activate
Charts.Add
ActiveChart.Name = "Trend Averages"
Set TrendAvg_Chart = Weekly_WB.Charts("Trend Averages")
TrendAvg_Chart.ChartType = xlColumnClustered
TrendAvg_Chart.SetSourceData Source:=avgRng, PlotBy:= _
xlColumns
For z = 1 To 12
TrendAvg_Chart.SeriesCollection(1).Delete
Next z
TrendAvg_Chart.SeriesCollection.NewSeries
TrendAvg_Chart.SeriesCollection(1).XValues = axisRng
TrendAvg_Chart.SeriesCollection(1).Values = avgRng
TrendAvg_Chart.Location Where:=xlLocationAsObject, Name:="Trends"
' BOMBS ON THE FOLLOWING LINE
TrendAvg_Chart.Axes(x1Category).TickLabels.NumberFormat = "mmm"
End Sub
could not find a similar problem. I am trying to manipulate a chart
within a chart. I receive the following error on the last line of
code: automation error 2147221080 (800401a8)
Here is the portion of code where it bombs:
Sub CreateNewTrendChartNew()
Dim trendRng As Range, avgRng As Range, axisRng As Range
Dim data_sheet As Worksheet
Dim columnz900 As Integer
Dim seriesLoop As Integer
Dim Trends_Chart As Chart, TrendAvg_Chart As Chart
Set Weekly_WB = Workbooks("H4.weeklys.test.xls")
Set data_sheet = Weekly_WB.Sheets("DATA")
Set Trends_Chart = Weekly_WB.Charts("Trends")
Trends_Chart.Activate
Charts.Add
ActiveChart.Name = "Trend Averages"
Set TrendAvg_Chart = Weekly_WB.Charts("Trend Averages")
TrendAvg_Chart.ChartType = xlColumnClustered
TrendAvg_Chart.SetSourceData Source:=avgRng, PlotBy:= _
xlColumns
For z = 1 To 12
TrendAvg_Chart.SeriesCollection(1).Delete
Next z
TrendAvg_Chart.SeriesCollection.NewSeries
TrendAvg_Chart.SeriesCollection(1).XValues = axisRng
TrendAvg_Chart.SeriesCollection(1).Values = avgRng
TrendAvg_Chart.Location Where:=xlLocationAsObject, Name:="Trends"
' BOMBS ON THE FOLLOWING LINE
TrendAvg_Chart.Axes(x1Category).TickLabels.NumberFormat = "mmm"
End Sub