Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
756to760
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
756to760
756to760
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
mit VBA X-Achse von Chart anpassen
24.04.2006 12:15:48
Chart
hallo zusammen
ich möchte mit VBA die x-achse von einem chart anpassen. dazu hab ich die aktion aufgezeichnet und etwas angepasst. das kürzeste was funktioniert seht ihr unten. ich hätte es jedoch gerne wenn möglich noch etwas kürzer aber das zweite beispiel funktioniert nicht. kann mir da jemand helfen?
besten dank und gruss
loca

Sub rescale_x_axis()
ActiveSheet.ChartObjects("Diagramm 1").Activate
ActiveChart.PlotArea.Select
With ActiveChart
.HasAxis(xlCategory, xlPrimary) = True
.HasAxis(xlValue, xlPrimary) = True
End With
ActiveChart.Axes(xlValue).Select
With ActiveChart.Axes(xlValue)
.MaximumScale = 170
End With
Selection.Delete
End Sub


Sub rescale_x_axis_test()
ActiveSheet.ChartObjects("Diagramm 1").Activate
ActiveChart.Axes(xlValue).MaximumScale = 170
End Sub

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: mit VBA X-Achse von Chart anpassen
24.04.2006 12:38:08
Chart
Hallo Loca,
das was du in rescale_x_axis_test() versuchst, ist die Y-Achse xlValue!!
Hier ein Beispiel:
'======================================================

Sub rescale_x_axis_test()
ActiveSheet.ChartObjects("Diagramm 1").Activate
With ActiveChart
.Axes(xlValue).MaximumScale = 170 'Y-Achse!!!
.Axes(xlCategory).TickLabelSpacing = 10 'X-Achse!!!
End With
End Sub

'======================================================
Gruß
Solaiman
mit VBA Y-Achse von Diagramm anpassen
24.04.2006 13:38:23
Diagramm
hi solaiman
besten dank für deinen tip. leider kommt beim laufen lassen des makros bei der zeile .Axes(xlValue).MaximumScale = 170 die nachricht: die maximumscale eingeschaft des axis objektes kann nicht festegelegt werden. kann mir da jemand helfen?
besten dank und gruss

Sub rescale_y_axis()
ActiveSheet.ChartObjects("Diagramm 1").Activate
With ActiveChart
.Axes(xlValue).MaximumScale = 170
End With
End Sub

Anzeige
AW: liegt höchst wahscheinlich an dem Namen ...
24.04.2006 15:27:35
Solaiman
Hallo Ioca,
das liegt definitiv daran, daß du vorhin die Namen der Diagramm mit Code geändert hast und jetzt existiert keinen Diagramm mehr unter dem Namen "Diagramm 1".
Bei mir gehts!
Gruß
Solaiman
AW: liegt höchst wahscheinlich an dem Namen ...
24.04.2006 15:44:25
loca
hi solaiman
offensichtlich funktioniert die anpassung der skalierung nur, wenn das diagramm die x-achse anzeigt. bei meinem diagram hab ich die gelöscht. so wies unten steht funktionierts jetzt.
besten dank
loca

Sub Makro3()
ActiveSheet.ChartObjects("Diagramm 1").Activate
ActiveChart.HasAxis(xlValue, xlPrimary) = True
ActiveChart.Axes(xlValue).MaximumScale = 170
ActiveChart.Axes(xlValue).Delete
End Sub

Anzeige

80 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige