Hallo Chrissi...
ein Makro kann diese Aufgabe übernehmen. Wenn Du zukünftig auch dünnere Linien als Standard haben möchtest, kannst Du Dir eine eigene Diagrammvorlage ablegen. Zunächst aber das Makro...
Public Sub FormatLines()
Dim n As Long
Dim o As Object
On Error Resume Next
With ThisWorkbook.Worksheets("Tabelle1").ChartObjects(1)
Set o = .Chart.SeriesCollection
If Not o Is Nothing Then
For n = 1 To o.Count
o(n).Format.Line.Weight = 0.5
Next n
End If
End With
End Sub
Tabelle1 ist die Tabelle, wo das Diagramm enthalten ist und es wird hier auch von einem reinem Liniendiagramm ausgegangen sowie, dass es sich um das erste Diagramm in der Tabelle handelt. Kannst zum Testen auch vor dem Anwenden des Makros eine Kopie der
Datei nehmen.
Damit das Makro nicht immer laufen musst, kannst Du, wie gesagt, eine eigene Vorlage erstellen. Zunächst ein normales Liniendiagramm einfügen und eine hohe Anzahl von Datenreihen hinzufügen (z.B. 12 Zeilen * 128 Spalten), die Werte kann man
ja iterativ = Vorgänger + 10 setzen, so dass die Linen schön parallel sind. Danach einmal das Makro laufen lassen und alle Linien sollten 0,5 Punkt haben. Das Diagramm dann als Vorlage speichern. Zukünftig kannst Du dann beim Zuweisen eines
Liniendiagramms Deine Vorlage wählen et voilà. Geht dann bis zu 128 Datenreihen.
Kombinierte Diagramm (Linien und Balken) habe ich hier nicht ausprobiert und ob es andere Lösungen zur globalen Einstellung für die Linienstärke gibt, wüsste ich nicht.
Gruß
MVP Office System - www.excel-ticker.de
