Größe von Objekten über Makro regeln
07.03.2008 11:29:00
Objekten
Ich habe eine Excel-Datei mit verschiedenen Grafiken, die unterschiedlich groß sind und ich alle gerne auf eine einheitliche Größe anpassen möchte.
Mit dem Makro Rekorder habe ich mir folgendes Skript erstellt:
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