无法使用VBA复制Excel地图图

Sub CopyMapChart()
    Dim ws As Worksheet
    Dim chart As ChartObject
    
    ' 设置工作表对象
    Set ws = ThisWorkbook.Worksheets("Sheet1") ' 替换为实际的工作表名称
    
    ' 设置图表对象
    Set chart = ws.ChartObjects("Chart 1") ' 替换为实际的图表名称
    
    ' 复制图表
    chart.Copy
    
    ' 在新的工作表中粘贴图表
    Sheets.Add(After:=Sheets(Sheets.Count)).Name = "Copied Chart" ' 新建一个工作表并命名为"Copied Chart"
    ActiveSheet.Paste
    
    ' 清除剪贴板内容
    Application.CutCopyMode = False
End Sub