[Excel 2007] Alle Linien im Diagramm dünner machen

[Mr. Snoot]

Hüho,

kann ich in einem x/y- bzw. Punkt-Diagramm alle Linien auf einmal dünner machen?

Ich hab hier 23 Datenreihen, die fast identisch sind und somit quasi genau übereinander liegen. Auswählen um sie zu formatieren geht daher nur umständlich über die Legende.

Das muss doch auch anders möglich sein.

 

[GunMum]

Hallo Mr. Snoot,

hast du mal darüber nachgedacht, die Y-Achse so einzuschränken, dass der Werte-Bereich etwa beim niedrigsten Punkt anfängt und ungefähr beim höchsten Wert aufhört? Das streckt den Bereich vielleicht so, dass die Linien "greifbarer" und auch besser unterscheidbar sind.

 

[Mr. Snoot]

Ja, vielleicht .. eigentlich gehts mir mehr darum, ob man alle auf einmal editieren kann


Allerdings hab ich gerade rausgefunden, dass es über die Legende dank des neuen Kontextmenüs sogar einfacher geht, als über die Datenreihenformatierung - aber eben auch nur Linie für Linie.

 

[GunMum]

Na gut, dann muss mal wieder das Zauberwort "Makro" herhalten ...

Sub DuenneLinien()
' Linien in einem XY-Diagramm alle auf Haarlinie setzen
' mfg GunMum

    Dim i As Integer
    Dim Anz As Integer
    Dim JaNein As Integer
    
    ActiveSheet.ChartObjects("Chart 1").Activate
    Anz = ActiveChart.SeriesCollection.Count
    JaNein = MsgBox("Alle " & Anz & " Datenlinien werden auf Haarlinienbreite gesetzt.", _
        vbInformation + vbYesNo)
    If JaNein = vbYes Then
        For i = 1 To Anz
            ActiveChart.SeriesCollection(i).Border.Weight = xlHairline
        Next i
    Else
        MsgBox "Dann eben nicht ... :-)"
    End If
End Sub

Das editieren der MsgBox-Texte ist natürlich eine Pflichtübung
Eine Beispiel-Datei mit schicken, fetten Linien habe ich angefügt. Da ist das Makro (selbstredend) auch drin.

 

[Mr. Snoot]

Ist natürlich auch ne Möglichkeit

Danke