Diagrammgröße per VBA absolut angeben

da ich ein Diagramm aus einer Tabelle mit variabler Anzahl an Einträgen generiere, ist es notwendig, dass ich wegen der Legende die Diagrammgröße per VBA anpasse. Leider habe ich bisher nur die Möglichkeit, dieses über folgenden Code zu ändern:

Allerdings hilft mir die prozentuale Änderung nicht weiter, ich möchte gerne eine absolute Größe angeben, sinngemäß

ActiveSheet.Shapes("Diagramm 3").AbsoluteHeight 200, msoFalse, ScaleFromTopLeft

Gibt es dafür eine Lösung?

Gruß und Danke im Voraus
Thorsten Becker