系列在图表中删除

问题描述：

我有一个表格，想从中生成图表。问题是我想只有列值A，F，G和H.系列在图表中删除

我试过了seriescollection（1）.deletion方法。但我仍然在图表中获得B列和C列。

任何人都可以告诉我怎么做。任何铅将是有益的

Sub chartstatus() 
Dim Rng As Range 
Dim cht As Object 

Set Rng = ActiveSheet.Range("A2:H53") 
ThisWorkbook.Sheets("Status").ChartObjects.delete 
Set Sh = ActiveSheet.ChartObjects.Add(Left:=650, _ 
    Width:=600, _ 
    Top:=80, _ 
    Height:=250) 

Sh.Select 

Set cht = ActiveChart 
With cht 
.SetSourceData Source:=Rng 
.ChartType = xlColumnClustered 
cht.Axes(xlSecondary).TickLabels.NumberFormat = "0.%" 

End With 


cht.SeriesCollection(6).Name = " % Missing " 
cht.SeriesCollection(7).Name = " % OnTime" 
cht.SeriesCollection(8).Name = " % Delayed" 


cht.SeriesCollection(6).HasDataLabels = True 
cht.SeriesCollection(7).HasDataLabels = True 
cht.SeriesCollection(8).HasDataLabels = True 
cht.SeriesCollection(1).Format.Fill.ForeColor.RGB = RGB(255, 255, 255) '<~~ Red 

cht.HasTitle = True 
cht.ChartTitle.Text = "Result " 
End Sub

谁能帮我该怎么办呢 – Jenny

我在这里帮你https://stackoverflow.com/questions/ 45345406 /格式与图表，但由于某种原因，你再次使用你的旧代码 –

@ShaiRado请不要错，现在的问题是不同的。我问我如何删除系列。 – Jenny

答

您可以结合2范围分为1范围

Dim Rng As Range 
Dim Rng_A As Range 
Dim Rng_FH As Range 
Set Rng_A = ActiveSheet.Range("A2:A52") 
Set Rng_FH = ActiveSheet.Range("F2:H52") 
Set Rng = Union(Rng_A, Rng_FH)

系列在图表中删除

相关推荐