生成图表时出现自动化错误

Question

我试图从表格中生成图表。

该表位于我的工作表“测试”中，我希望我的工作表位于工作表“状态”中。

我使用的代码中，我在该行

.SetSourceData Source:=rng 

我没有得到错误每次收到一个自动化错误。对于每30次或更多的迭代，我得到这个错误。

谁能帮助下，我怎么能纠正这种

Sub chart() 
Dim rng As Range 
Dim cht As Object 
Dim Ws As Worksheet 
Set Ws = Sheets("Test") 
Set rng = Ws.Range("G1:J2") 
Set sh = ActiveSheet.ChartObjects.Add(Left:=400, _ 
    Width:=390, _ 
    Top:=100, _ 
    Height:=250) 
sh.Select 
Set cht = ActiveChart 
With cht 
.SetSourceData Source:=rng 
.ChartType = xlColumnClustered 
ActiveChart.FullSeriesCollection(1).Points(1).Format.Fill.ForeColor.RGB = RGB(255, 0, 0) 
ActiveChart.FullSeriesCollection(1).Points(2).Format.Fill.ForeColor.RGB = RGB(0, 255, 0) 
    ActiveChart.FullSeriesCollection(1).Points(3).Format.Fill.ForeColor.RGB = RGB(0, 0, 255) 
    ActiveChart.FullSeriesCollection(1).Points(4).Format.Fill.ForeColor.RGB = RGB(80, 100, 10) 
'cht.Axes(xlSecondary).TickLabels.NumberFormat = "0.0%" 
End With 
'cht.SeriesCollection(1).name = "" 
cht.SeriesCollection(1).HasDataLabels = True 
cht.HasTitle = True 
cht.ChartTitle.Text = "Status" 
End Sub 

Answer 1

试试这个：

Sub chart() 
    Dim rng As Range 
    Dim cht As Chart 
    Dim Ws As Worksheet 

    Set Ws = ThisWorkbook.Sheets("Test") 
    Set rng = Ws.Range("G1:J2") 
    Set sh = ThisWorkbook.Sheets("status") 

    sh.Shapes.AddChart(Left:=400, Top:=100, Width:=390, Height:=250).Select 
    Set cht = ActiveChart 

    With cht 
     .SetSourceData Source:=rng 
     .ChartType = xlColumnClustered 
     .SeriesCollection(1).Points(1).Format.Fill.ForeColor.RGB = RGB(255, 0, 0) 
     .SeriesCollection(1).Points(2).Format.Fill.ForeColor.RGB = RGB(0, 255, 0) 
     .SeriesCollection(1).Points(3).Format.Fill.ForeColor.RGB = RGB(0, 0, 255) 
     .SeriesCollection(1).Points(4).Format.Fill.ForeColor.RGB = RGB(80, 100, 10) 
     .ChartTitle.Text = "Status" 
    End With 
End Sub