14、Excel 图表与数据透视表的动态创建

Excel 图表与数据透视表的动态创建

1. 动态放置图表

1.1 创建新子例程

在 VBE 中，于 Standard Module1 里创建一个名为 PlaceChartDynamic 的新子例程。把 PlaceChart 过程的代码复制并粘贴到 PlaceChartDynamic 中。

1.2 存储图表位置信息到数组

1. 在 Standard Module1 上创建一个名为 GetChartInfo() 的新函数。
2. 为函数添加参数：

Private Function GetChartInfo(MyChart As ChartObject) As Variant

此参数 MyChart 会将一个 ChartObject 传递到函数中，函数将返回该图表的位置信息。
3. 添加变量：

Dim varReturn As Variant

该变量用于保存函数的返回值。
4. 将 PlaceChartDynamic 子例程中特定的代码块移到 GetChartInfo 函数中，代码如下：

Private Function GetChartInfo(MyChart As ChartObject) As Variant
    Dim varReturn As Variant
    Dim arrCh