在多个Excel工作表中应用各种图表（根据每个工作表中的行数）

Question

我创建了一个数据透视表，显示主要城市为“过滤器”（总共80个），某些性能数字为“值总和”。在Excel文件中，我有26张相应于这些城市的国家/地区的表格，并且在每张表格中都有一个包含城市列表的表格（对于某些国家/地区，它可以是1行（1个城市），5行或其他...）< / p>

在每个国家/地区表中，我应该显示该表（已经完成）以及表性能的每一行的图表（同样，它可以是1,5或其他）。

我认为最简单的方法是在每张工作表中粘贴数据透视表，然后自动选择具有城市名称的每一行，并将其应用到数据透视的过滤器。

到目前为止，这是我写的代码：

Sub PastPivot() 
    Dim sht As Worksheet
        ActiveSheet.ChartObjects("Chart 1").Activate
        ActiveChart.ChartArea.Copy
    For Each sht In Worksheets
        sht.Range("a16").PasteSpecial
    Next
    Application.CutCopyMode = False
End Sub

但我有几个问题：

1. 运行代码

时会出现“错误5”

2. 我不确定如何编写代码，以便在每个工作表中执行尽可能多的图表行（以及如何确定图表的位置，因为我不会有相同的数字每张图表上的图表。

也许解决方案是使用其他类型的图形而不是枢轴图形。

关于如何执行它的任何建议？