Excel 2007, Datenreihen von Diagrammen zu dick?

Question

Hi liebe Excelprofis,

ich finds einfach nicht.

Seit dem Umstieg von Excel 2003 auf 2007 hat sich ja doch einiges geändert, vor allem die Darstellung von Diagrammen mit Linien.

Da jetzt leider meine alte Excel 2003 Vorlage nicht mehr so will wie ich das will muss ich ein neues Diagramm einfügen.

Jetzt hab ich das Problem, dass dort in der y-Achse sehr viele Daten angezeigt werden müssen (ca. 40) und diese Linien viel zu dick angezeigt werden um aus diesem Diagramm etwas erkennen zu können.

In Excel 2003 wurden die automatisch glaube ich nur ein Pixel dick angezeigt, jetzt sind es mehrere.

Wie man eine Linie ändert hab ich schon gefunden, nur nirgens die Möglichkeit alle auf einmal zu ändern.

Das Diagramm zeigt auf der x-Achse ca. 400-1400 Datensätze an und egal wie hoch ich die y-Achse mache und formatieren mit dieser Dicke der Datenlinien ist es einfach unübersichtlich, vor allem wenn man die Linien mit den Datenpunkten anzeigen lässt.

Ist sicher ganz einfach aber ich finde es einfach nicht wo man alle Datenlinien auf einmal dünner formatiert.

Über Hilfe würde ich mich freuen.

Viele Grüße

Fabian

Answer 1

Hallo Fabian,

ob man alle Diagrammlinien mit einem Rutsch ändern kann, weiß ich leider auch nicht, da ich mit Diagrammen sehr wenig arbeite. Aber ich habe Dir mal ein kurzes Makro erstellt, dass das erledigt. Kopiere das Makro in ein Standardmodul, markiere das Diagramm, bei dem die 40 Linien geändert werden soll und starte das Makro.

Option Explicit

Sub Diagrammlinien_aendern()
Dim i As Integer
Application.ScreenUpdating = False
For i = 1 To 40
ActiveChart.SeriesCollection(i).MarkerSize = 1.5
Next
End SubWenn Du die Anzahl der Linien ändern willst, dann ändere in der Zeile

For i = 1 To 40 die Zahl 40 in eine andere Zahl. Die Linienstärke änderst Du in der Zeile

ActiveChart.SeriesCollection(i).MarkerSize = 1.5Der kleinste Wert ist 1.5, der Größte 72.

Ich hoffe, dass das Makro bei Dir funktioniert. Bei mir hats das gemacht.

MfG,
Oliver
[sup]Jeder macht was er will, keiner macht was er soll, aber alle machen mit.[/sup]

Answer 2

Hi Oliver,

leider passiert da bei mir außer einem Screenrefresh nichts.

Ich hab mal ein paar Linien per Hand dünner gemacht und dadurch kann man ganz gut sehen ob alle gleich dick oder dünn gemacht werden aber da ändert sich nichts.

Wenn ich die Liniendicke zu klein mache kommt aber ein Fehler, also irgendwas scheint er zu machen.

Gruß Fabian

Answer 3

Hallo Fabian,

mmmmh, bei mir funktionierte es beim Erstellen noch. nachdem Du gemeldet hattest, dass es bei Dir nicht funktioniert, gings bei mir auch nicht mehr. Habe dann etwas anderes erstellt, was bei mir geht.
Versuche es daher mal mit dem Code:

Option Explicit

Sub Diagrammlinien_aendern()
Dim i As Integer
Application.ScreenUpdating = False
For i = 1 To ActiveChart.SeriesCollection.Count
ActiveChart.SeriesCollection(i).Border.Weight = 1
Next
End SubDie Liniendicke gibst Du in der Zeile

ActiveChart.SeriesCollection(i).Border.Weight = 1an. Diagramm wieder vorher markieren.

MfG,
Oliver
[sup]Jeder macht was er will, keiner macht was er soll, aber alle machen mit.[/sup]

Answer 4

ahhhhh, sehr schön,

macht genau das was es soll.

Ich hätte natürlich auch einmalig alle 40 Linien anklicken können und die Stärke verändern, da ich aber Excel kenne und dieses Diagramm, weiß ich, dass ich alle paar Wochen das Diagramm neu erstellen muss weil da immer irgendwas schief geht und dann jedesmal die Liniendicke per Hand einstellen ist einfach ne dröge Angelegenheit.

Vielen Dank, das klappt super so

Gruß Fabian

Answer 5

Hallo Fabian,

freut mich, dass ich dem Chef helfen konnte. :~D

MfG,
Oliver
[sup]Jeder macht was er will, keiner macht was er soll, aber alle machen mit.[/sup]

Answer 6

Hi,

Olivers Makro ändert bei Deinem Diagramm die Grösse der Datenpunkte. Die Linienstärke hingegen nicht. Ich habe Olivers Makro mal dahingehen umgeändert. (Gleichzeitig die Fixierung auf 40 Linien gegen "Alle Linien" im aktiven Diagramm ersetzt.)

Sub Diagrammlinien_aendern()
Dim i As Integer
Dim objLine As Object

For Each objLine In ActiveChart.SeriesCollection
objLine.MarkerSize = 2
objLine.Format.Line.Weight = 1
Next
End Sub

Für MarkerSize gehen hier (Excel2007) nur Werte zwischen 2 und 72 (wie auch in der Hilfe beschrieben).
Für Line.Weight lassen sich auch Werte kleiner 1 eintragen. (z.B. 0.005) Ich kann aber auf meinem Monitor bei Werten unter 1 keine sichtbare Veränderungen erkennen.

bye
malSchauen

Answer 7

Hi,

Uppps... Hätte vorm Absenden wohl nochmal aktualisieren sollen... ;-)

Bye
malSchauen