使用VBA将Excel中的图表复制到其他工作表

Sub CopyChartToWorksheet()
    Dim sourceChart As ChartObject
    Dim targetSheet As Worksheet
    
    ' 设置源图表对象
    Set sourceChart = ThisWorkbook.Worksheets("Sheet1").ChartObjects("Chart1")
    
    ' 创建目标工作表
    Set targetSheet = ThisWorkbook.Worksheets.Add
    
    ' 将源图表复制到目标工作表
    sourceChart.Copy
    targetSheet.Paste Destination:=targetSheet.Range("A1")
    
    ' 调整图表位置和大小
    With targetSheet.ChartObjects(1)
        .Top = 50
        .Left = 50
        .Width = 400
        .Height = 300
    End With
    
    ' 清除剪贴板内容
    Application.CutCopyMode = False
End Sub