Makro Achsenskalierung
20.01.2006 10:44:47
Venno
ich habe folgendes Makro zur Skalierung der Achsen eines Diagramms
gefunden. Dies funktioniert auch, allerdings will ich ein Tabellenblatt
mit mehreren Diagrammen aufbauen (Cockpit) und nun ist die Frage, wie
ich die einzelnen Diagramme ansprechen kann bzw. wie ich herausfinde, welche
Nummer die einzelnen Diagramme habe?
Hier das Makro zur Anschauung:
Sub SkalierungAchsen()
With ActiveSheet.ChartObjects(1).Chart
' Category (X) Axis
With .Axes(xlCategory)
.MaximumScale = ActiveSheet.Range("$E$2").Value
.MinimumScale = ActiveSheet.Range("$E$3").Value
.MajorUnit = ActiveSheet.Range("$E$4").Value
End With
' Value (Y) Axis
With .Axes(xlValue)
.MaximumScale = ActiveSheet.Range("$M$9").Value
.MinimumScale = ActiveSheet.Range("$M$10").Value
.MajorUnit = ActiveSheet.Range("$F$4").Value
End With
Viele Grüße
Michael