for循环vba第一次迭代中的图表系列数据
我有一个额外的数据系列包含在我不打算包含的图表中。它只在第一次迭代中出现,没有其他迭代。序列的值为={1}。该数据系列是如何包含在图表中的?如何将其删除for循环vba第一次迭代中的图表系列数据,vba,Vba,我有一个额外的数据系列包含在我不打算包含的图表中。它只在第一次迭代中出现,没有其他迭代。序列的值为={1}。该数据系列是如何包含在图表中的?如何将其删除 Set sh = Worksheets("LowDistCharts") Set chrt = sh.ChartObjects.Add(0, 0, 300, 300) Set ch = chrt.Chart With chrt .Height = 300 .Width = 300 .T
Set sh = Worksheets("LowDistCharts")
Set chrt = sh.ChartObjects.Add(0, 0, 300, 300)
Set ch = chrt.Chart
With chrt
.Height = 300
.Width = 300
.Top = 1 + ((aa - 4) * 300)
.Left = 1
End With
With ch
.HasTitle = True
.ChartTitle.Text = aa & " " & StartDate & " to " & EndDate
.ChartTitle.Font.Size = 8
.ChartType = xlLine
.SeriesCollection.NewSeries
.SeriesCollection(1).Values = ActiveWorkbook.Worksheets("ActiveSheet").Range(RngXR, RngXR2)
'.SeriesCollection(1).AxisGroup = 1
.SeriesCollection.NewSeries
.SeriesCollection(2).Values = ActiveWorkbook.Worksheets("ActiveSheet").Range(RngStartR, RngEndR)
.SeriesCollection(2).AxisGroup = 2
.SeriesCollection(3).Delete
.HasLegend = False
End With
添加图表时,如果在创建图表时选择了包含数据的单元格,则可能会发现一个或多个系列自动添加 在添加所需数据之前,可以确保已删除这些选项:
Set chrt = sh.ChartObjects.Add(0, 0, 300, 300)
Set ch = chrt.Chart
Do While ch.SeriesCollection.Count > 1
ch.SeriesCollection(1).Delete
Loop