Diagramm achsenskalierung
05.06.2013 21:40:32
Golem
ich möchte in einem Diagramm die Intervalleinheit der X-Achse variabel einstellen.
Dafür verwende ich einen Code von Karin (Beverly), den ich meinen Wünschen angepasst habe.
Option Explicit
'*****************************************************
'* 23.02.06, geändert 05.08.06 *
'* erstellt von Karin (Beverly), http://excel-inn.de *
'* Beverly_Forums@web.de *
'*****************************************************
Sub min_max_anpassen()
Dim chDiagramm As Chart ' Variable für das Diagrammobjekt
' Prozedur verlassen, wenn aktive Tabelle nicht Tabelle "Chart" ist
If ActiveSheet.Name "Chart" Then Exit Sub
' Prozedur verlassen, wenn kein numerischer Wert in der Eingabezelle vorhanden ist
If Not IsNumeric(Cells(41, 7)) Then Exit Sub
' Falls das Diagramm aktiv ist, zur Sprungmarke Ende gehen
On Error GoTo Ende
' Diagramm 1 der Variablen zuweisen
Set chDiagramm = Worksheets("Chart").ChartObjects("Diagramm 3").Chart
With chDiagramm.Axes(xlValue)
.MajorUnit = Cells(41, 7)
End With
Ende:
' Variable leeren
Set chDiagramm = Nothing
End Sub
Wenn ich den Code ausführe, wird aber die Intervalleinheit Hauptintervall der Y-Achse aus der Zelle G41
angepasst.
Wie kann der Code geändert werden, damit nur die Intervalleinheit der X-Achse aus der Zelle G41
angepasst wird?
Für evtl. Tipps oder Anregungen schon mal besten Dank!
Werner