根据单元格内容复制粘贴图表的宏

Sub CopyPasteChart()
    Dim chartName As String
    Dim sourceChart As ChartObject
    Dim targetRange As Range
    
    ' 设置源图表的名称
    chartName = "Chart1"
    
    ' 设置目标图表要粘贴到的单元格范围
    Set targetRange = Range("A1")
    
    ' 复制源图表
    Set sourceChart = ActiveSheet.ChartObjects(chartName)
    sourceChart.Copy
    
    ' 将图表粘贴到目标单元格范围
    targetRange.PasteSpecial Format:="Picture (Enhanced Metafile)", Link:=False, DisplayAsIcon:=False
    
    ' 清除剪贴板内容
    Application.CutCopyMode = False
End Sub