L
Laoballer
I have a macro that automatically generates a new chart from data in a
worksheet. When I run my macro, charts that have been created prior
will have the same min x-axis scale as the new chart generated.
However the recently generated chart looks perfect. How do I make the
old charts and new charts independent from each other? Whenever I
create a new chart I'm using the charts.add function
Set xlChart = Charts.Add
With xlChart
.ChartWizard Source:=GanttChartRange, Gallery:=xlBar,
Format:=3, PlotBy:=xlColumns, CategoryLabels:=1, SeriesLabels:=1,
HasLegend:=1, Title:=Title, CategoryTitle:="", ValueTitle:="",
ExtraTitle:=""
.SeriesCollection(1).Border.LineStyle = xlNone
.SeriesCollection(1).Interior.ColorIndex = xlNone
.Axes(xlCategory).ReversePlotOrder = True
.Axes(xlCategory).Crosses = 4 'TaskCount
.Axes(xlValue).MinimumScale = minXscale 'minXscale is a cell
on the worksheet min value of x-axis
.Axes(xlValue).TickLabels.Font.Name = "Arial"
.Axes(xlValue).TickLabels.Font.Size = 10
.Axes(xlCategory).TickLabels.Font.Name = "Arial"
.Axes(xlCategory).TickLabels.Font.Size = 12
.Legend.Font.Name = "Arial"
.Legend.Font.Size = 12
.HasTitle = True
.ChartTitle.Text = Range("GanttTitle").Value
.ChartTitle.Font.Name = "Arial"
.ChartTitle.Font.Size = 15
.ChartTitle.Font.Bold = False
End With
this code is courtesy of Dave Steppan,
http://www.geocities.com/SiliconValley/Network/1030/gantt.zip
thanks,
worksheet. When I run my macro, charts that have been created prior
will have the same min x-axis scale as the new chart generated.
However the recently generated chart looks perfect. How do I make the
old charts and new charts independent from each other? Whenever I
create a new chart I'm using the charts.add function
Set xlChart = Charts.Add
With xlChart
.ChartWizard Source:=GanttChartRange, Gallery:=xlBar,
Format:=3, PlotBy:=xlColumns, CategoryLabels:=1, SeriesLabels:=1,
HasLegend:=1, Title:=Title, CategoryTitle:="", ValueTitle:="",
ExtraTitle:=""
.SeriesCollection(1).Border.LineStyle = xlNone
.SeriesCollection(1).Interior.ColorIndex = xlNone
.Axes(xlCategory).ReversePlotOrder = True
.Axes(xlCategory).Crosses = 4 'TaskCount
.Axes(xlValue).MinimumScale = minXscale 'minXscale is a cell
on the worksheet min value of x-axis
.Axes(xlValue).TickLabels.Font.Name = "Arial"
.Axes(xlValue).TickLabels.Font.Size = 10
.Axes(xlCategory).TickLabels.Font.Name = "Arial"
.Axes(xlCategory).TickLabels.Font.Size = 12
.Legend.Font.Name = "Arial"
.Legend.Font.Size = 12
.HasTitle = True
.ChartTitle.Text = Range("GanttTitle").Value
.ChartTitle.Font.Name = "Arial"
.ChartTitle.Font.Size = 15
.ChartTitle.Font.Bold = False
End With
this code is courtesy of Dave Steppan,
http://www.geocities.com/SiliconValley/Network/1030/gantt.zip
thanks,