excel vba 复制chart1 到J1，并重命名为chart2

在Excel VBA中，复制一个图表并将其放置到特定的单元格位置，然后重命名为新的图表名称可以通过以下步骤实现：

1. 首先，你需要有一个已经创建好的图表，这里假设为Chart1。
2. 使用VBA代码来复制Chart1，并将其粘贴到指定的位置，比如工作表上的J1单元格。
3. 复制后，需要设置新图表的名称为Chart2。

以下是一个简单的VBA代码示例，实现了上述功能：

Sub CopyAndRenameChart()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1") ' 修改为你的工作表名称
    Dim chart1 As Chart
    Set chart1 = ws.ChartObjects("Chart 1") ' 修改为你的源图表名称
    Dim chart2 As Chart
    
    ' 复制图表1到J1位置
    chart1.Copy
    ws.Range("J1").PasteSpecial Paste:=xlPasteChartObjects
    
    ' 清除剪贴板
    Application.CutCopyMode = False
    
    ' 从粘贴的位置获取新图表对象
    For Each chart2 In ws.ChartObjects
        If chart2.Top = ws.Range("J1").Top And chart2.Left = ws.Range("J1").Left Then
            Exit For
        End If
    Next chart2
    
    ' 重命名新图表为Chart2
    If Not chart2 Is Nothing Then
        chart2.Name = "Chart2"
    Else
        MsgBox "未找到粘贴的图表对象。"
    End If
End Sub

在这段代码中，我们首先设置工作表对象并引用原始图表对象。然后复制该图表并使用`PasteSpecial`方法将图表粘贴到J1单元格位置。之后我们清除剪贴板，并通过遍历工作表中的图表对象来找到刚刚粘贴的图表，最后将其重命名为Chart2。