Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Check for Data series
Hi all. I have a macro that on the first run through, it will add 2 data
series to the chart it creates. On the second run through, it only adds one. Is there a way to check if there are 2 data series? The end goal is to delete the second and unused data series. Here is the function that I use. Function PlotSigma(strDataName, strChartName, strChartTitle) With Sheets(strDataName) Set rng1 = .Range(.Cells(2, 4), _ .Cells(2, 4).End(xlDown)) Set rng2 = .Range(.Cells(2, 3), _ .Cells(2, 3).End(xlDown)) End With Charts.Add ActiveChart.ChartType = xlXYScatterSmooth ActiveChart.Location Whe=xlLocationAsNewSheet, Name:=strChartName ActiveChart.SeriesCollection.NewSeries ActiveChart.SeriesCollection(1).Name = Sheets(strDataName).Cells(1, 4) ActiveChart.SeriesCollection(1).XValues = rng1 ActiveChart.SeriesCollection(1).Values = rng2 end function Thanks - Ben H. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Check for Data series
This gets rid of all the series in the chart:
do while activechart.seriescollection.count 0 activechart.seriescollection(1).delete loop Then continue by adding back the first series (your .NewSeries line). Or loop while the series count 1, and you don't need to add the first series. - Jon ------- Jon Peltier, Microsoft Excel MVP Tutorials and Custom Solutions http://PeltierTech.com _______ "Ben H" wrote in message ... Hi all. I have a macro that on the first run through, it will add 2 data series to the chart it creates. On the second run through, it only adds one. Is there a way to check if there are 2 data series? The end goal is to delete the second and unused data series. Here is the function that I use. Function PlotSigma(strDataName, strChartName, strChartTitle) With Sheets(strDataName) Set rng1 = .Range(.Cells(2, 4), _ .Cells(2, 4).End(xlDown)) Set rng2 = .Range(.Cells(2, 3), _ .Cells(2, 3).End(xlDown)) End With Charts.Add ActiveChart.ChartType = xlXYScatterSmooth ActiveChart.Location Whe=xlLocationAsNewSheet, Name:=strChartName ActiveChart.SeriesCollection.NewSeries ActiveChart.SeriesCollection(1).Name = Sheets(strDataName).Cells(1, 4) ActiveChart.SeriesCollection(1).XValues = rng1 ActiveChart.SeriesCollection(1).Values = rng2 end function Thanks - Ben H. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
how to format a worksheet to tab through a series of check boxes? | Excel Worksheet Functions | |||
How do I delete an already created series of check boxes? | Excel Discussion (Misc queries) | |||
hiding data series with check/uncheck boxes | Charts and Charting in Excel | |||
Series of check boxes | Excel Programming | |||
VBA to check if there is a data series in a chart? | Excel Programming |