Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1056to1060
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
Inhaltsverzeichnis

Diagramm y-Achse bei Minimum x-Achse schneiden

Diagramm y-Achse bei Minimum x-Achse schneiden
05.03.2009 09:32:13
Marco
Hallo zusammen.
Ich erstelle per VBA aus einer generierten .txt Datei, ein Excelblatt, in dem immer 2 Datenreihen als Diagramm dargestellt werden. (3 Diagramme)
Mein Problem ist nun, dass ich die y-Achse, der Übersichtlichkeit halber, am Minimum der x-Achse Schneiden soll.
Habe gedacht, es könnte mit
ActiveChart.Axes(xlCategory).CrossesAt = xlMinimum
gehen, allerdings erstellert er mir da die y-Achse immer bei dem x-Wert 4.
Hoffe igr könnt mir helfen
Gruß
Marco

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Diagramm y-Achse bei Minimum x-Achse schneiden
05.03.2009 14:55:09
Chris
Servus Marco,
xlMinimum ist mit 4 belegt, das ist nicht der kleinste x-Wert. Ich denke aber das du den kleinsten x-Wert bzw . den Anfangswert ja kennst (steht ja irgendwo).
dann versuch's mal so:
Anfangswert = Range("xy")
With ActiveChart.Axes(xlCategory)
.MinimumScale = Anfangswert
End With
Gruß
Chris
AW: Diagramm y-Achse bei Minimum x-Achse schneiden
05.03.2009 16:01:30
fcs
Hallo Marco,
der standardmäßige Schnittpunkt von X- (Kategorie-)-Achse und Y-Achse ist vom Diagrammtyp abhängig.
Beim XY-Punkt-Diagramm ist er meist bei 0.
Als Option kann nur die Einstellung "Größenachse (Y) schneidet bei Maximum" gewählt werden.
Für alle anderen Schnittpunkte muss man den Wert explizit vorgeben.
Code-m´ßig schaut das dann für ein XY-Diagramm etwa wie folgt aus.
Gruß
Franz

Sub Makro1()
Dim wks As Worksheet, objDiag As Chart, rngBereich As Range
Set wks = Worksheets(1) 'oder Worksheets("Tabelel1")
'Datenbereich des Diagramms (Spalten A und B)
With wks
.Activate
Set rngBereich = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp).Offset(0, 1))
End With
'Diagramm erstellen
Charts.Add
ActiveChart.ChartType = xlXYScatter 'Punkt XY-Diagramm
ActiveChart.SetSourceData Source:=rngBereich, PlotBy _
:=xlColumns
'diagramm im Blatt eingebettet
'    ActiveChart.Location Where:=xlLocationAsObject, Name:=wks.Name
'    Set objDiag = wks.ChartObjects(wks.ChartObjects.Count).Chart
'Diagramm separat
ActiveChart.Location Where:=xlLocationAsNewSheet
Set objDiag = ActiveWorkbook.Charts(ActiveWorkbook.Charts.Count)
'X-Achse formatieren
With objDiag.Axes(xlCategory)
.MinimumScaleIsAuto = False
.MinimumScale = Application.WorksheetFunction.Min(objDiag.SeriesCollection(1).XValues)
.MaximumScaleIsAuto = True
.MinorUnitIsAuto = True
.MajorUnitIsAuto = True
.Crosses = xlCustom
.CrossesAt = Application.WorksheetFunction.Min(objDiag.SeriesCollection(1).XValues)
.ReversePlotOrder = False
.ScaleType = xlLinear
.DisplayUnit = xlNone
End With
End Sub


Anzeige
AW: Diagramm y-Achse bei Minimum x-Achse schneiden
10.03.2009 12:46:39
Marco
Danke, mit anpassen klappt es wunderbar.
(Habe 3 Diagramme à 2 Reihen, wobei die Reihen jeweils auf einem anderem Worksheet stehen, wovon Reihe 1 immer negative x-Werte hat)

335 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige