VBA-Excel Charts-Eigenschaften

09/09/2008 - 17:29 von Reinhard Schüll | Report spam
Hallo NG,
per VBA möchte ich zur Laufzeit die Einstellung der Achsenwerte veràndern.
Es funktioniert nach Makroaufzeichnung z.B. mit
ActiveSheet.ChartObjects("Diagramm 1").Activate
ActiveChart.Axes(xlValue).MaximumScale = 120
Mich stört dabei, dass ich die Anweisung Activate benutzen muss bevor ich
die Eigenschaft MaximumScale veràndern kann.
Der direkte Weg z.B. über
ActiveSheet.ChartObjects("Diagramm 1")..Axes(xlValue).MaximumScale = 120
làßt sich nicht ausführen.
Wie sollte ich vorgehen?
Gruß Reinhard
 

Lesen sie die antworten

#1 Claus Busch
09/09/2008 - 17:40 | Warnen spam
Hallo Reinhard,

Am Tue, 9 Sep 2008 17:29:20 +0200 schrieb Reinhard Schüll:

per VBA möchte ich zur Laufzeit die Einstellung der Achsenwerte veràndern.
Es funktioniert nach Makroaufzeichnung z.B. mit
ActiveSheet.ChartObjects("Diagramm 1").Activate
ActiveChart.Axes(xlValue).MaximumScale = 120
Mich stört dabei, dass ich die Anweisung Activate benutzen muss bevor ich
die Eigenschaft MaximumScale veràndern kann.
Der direkte Weg z.B. über
ActiveSheet.ChartObjects("Diagramm 1")..Axes(xlValue).MaximumScale = 120
làßt sich nicht ausführen.
Wie sollte ich vorgehen?



probiers mal so:

Dim cht As Chart
Dim chtAx As Axes

Set cht = Sheets("Tabelle1").ChartObjects("Diagramm 1").Chart
Set chtAx = cht.Axes

With chtAx(xlValue)
.MinimumScale = 0
.MaximumScale = 120
End With


Mit freundlichen Grüssen
Claus Busch
Win XP Prof SP2 / Vista Ultimate
Office 2003 SP2 / 2007 Ultimate

Ähnliche fragen