Excel VBA 产出图表问题

VictorChang

请问各位专家，我要产出ABCD各自的图表，目前写出来的语法只能汇出A的资料,
BCD要如何同时汇出? 请指教 谢谢。



Sub Output()
    Dim xChart As ChartObject
    Selection.AutoFilter
    ActiveSheet.Range("DB!$A:$D").AutoFilter Field:=1, Criteria1:="A"
    ActiveSheet.Shapes.AddChart2(227, xlLine).Select        

    Set xChart = ActiveSheet.ChartObjects(1)
    With xChart
    .Top = 40
    .Left = 460
    '.Width = 200
    '.Height = 200

    ActiveChart.SetSourceData Source:=Range("DB!$A:$D")     
    ActiveChart.FullSeriesCollection(1).XValues = "=DB!$D:$D"
    ActiveChart.ChartTitle.Select

    ActiveChart.Axes(xlValue).MaximumScale = 60     
    ActiveChart.Axes(xlValue).MajorUnit = 5      
    Application.CutCopyMode = False
End With
End Sub

ykcbf1100

加个表循环。

VictorChang

请问如何加呢?  

VictorChang

已以解決了，謝謝指導