如何在VBA中复制图表并保留源颜色？

Sub CopyChartWithSourceColors()
    Dim srcChart As ChartObject
    Dim newChart As ChartObject
    
    ' 选择要复制的源图表
    Set srcChart = Sheet1.ChartObjects("Chart 1")
    
    ' 复制图表到剪贴板
    srcChart.Copy
    
    ' 创建新的图表对象并粘贴源图表
    Set newChart = Sheet1.ChartObjects.Add(Left:=100, Top:=100, Width:=400, Height:=300)
    newChart.Paste
    
    ' 保留源图表的颜色
    For Each series In newChart.Chart.SeriesCollection
        series.Format.Fill.ForeColor.RGB = series.Points(1).Format.Fill.ForeColor.RGB
    Next series
End Sub