用于图表格式设置的Excel Pivot VBA系列引用

我正在尝试使用VBA在excel中的几个类似图表中应用格式。我希望这些图表是组合图表，结合了堆叠的线条和堆叠的列。我在VBA中应用格式时遇到问题，因为我不知道在图表所从的透视表中如何命名系列（透视图经过筛选，因此系列名称不仅仅是透视表的一个元素）

问题是，当数据透视表没有全部4个数据系列（类似于下面的ex）时，该系列被分配为1-3或1-2，我不知道第3或第2个系列是什么。如果可能的话，我想拿出系列参考资料，进行完整系列收集（“大狗”）。但是，我无法将此文本与透视表作为序列名给出的内容进行匹配，因为它是从排列透视表的“Dog”和“Big”组合中派生出来的，因此我不知道如何引用它

如果能得到任何帮助，我将不胜感激。谢谢

Sub ChangeChartType()
On Error Resume Next
Dim cht1
    ' Series 1, Dogs Big
    cht1.FullSeriesCollection(1).ChartType = xlLineStacked
    ' Series 2  Dogs Small
    cht1.FullSeriesCollection(2).ChartType = xlLineStacked
     Series 3   Cats Big
    cht1.FullSeriesCollection(3).ChartType = xlColumnStacked
     Series 4   Cats Small
    cht1.FullSeriesCollection(4).ChartType = xlColumnStacked

End Sub