Größe von Objekten über Makro regeln

Sub Makro1()
Range("L37").Select
ActiveSheet.ChartObjects("Diagramm 1").Activate
ActiveChart.ChartArea.Select
ActiveSheet.Shapes("Diagramm 1").ScaleWidth 0.5, msoFalse, _
msoScaleFromTopLeft
ActiveSheet.Shapes("Diagramm 1").ScaleHeight 0.52, msoFalse, _
msoScaleFromTopLeft
ActiveWindow.Visible = False
Windows("Mappe2").Activate
Range("K16").Select
End Sub

Die Größe wird hier aber nur prozentual verkleinert. Gibt es die Möglichkeit exakte Werte einzutragen z.B. cm, Pixel oder sonst irgendwas. Und wie kann ich den Code allgemein machen, dass der Code immer die Grafik verkleinert bzw. vergrößert, die ich vorher angeklickt habe?!
Viele Dank schon mal!
Moritz