Mit VB bei einem PivotChart den Diagrammtyp ändern

Ich möchte bei einem Pivot-Diagramm mit einem Makro den Diagreammtyp ändern.
Problem: Jedesmal, wenn das Diagramm neu erstellt wird, ändert sich die „Diagrammnummer“. Sieht dann im VB Editor etwa so aus:

ActiveSheet.ChartObjects(„Diagramm 119“).Activate
Beim nächsten Erstellen ist es („Diagramm 120“) usw.

Wie kann ich diese Eigenschaft selbst per Makro festlegen oder die jeweilige Zahl auslesen?

Vielen Dank!

Gruß
F_Man