Vorgeschichte:
Mit folgendem Makro konnte ich z.B. alle angezeigten Punkte auf die Größe 2 (aus allen Daten-Reihen für das Diagramm) verändern. Und auch diese per Linien verbinden lassen.
Sub Makro1()
' Makro1 Makro
' Makro am 25.07.2005 von xxxx aufgezeichnet
' Tastenkombination: Strg+n
Dim sc As Series
On Error Resume Next
For Each sc In ActiveChart.SeriesCollection
sc.MarkerSize = 2
sc.ChartType = xlXYScatterLines
Next
End Sub
Nun habe ich per Neuaufzeichung versucht die nötigen Befehlstexte zu finden, welche mir zusätzlich die Linien auf ----- ändern und auch alle auf die Farbe schwarz gesetzt werden.
Daher habe ich den Makro um die bei der Neuaufzeichnung gefundenen Zeilen erweitert:
Sub Makro1()
' Makro1 Makro
' Makro am 25.07.2005 von xxxx aufgezeichnet
' Tastenkombination: Strg+n
Dim sc As Series
On Error Resume Next
For Each sc In ActiveChart.SeriesCollection
sc.MarkerSize = 2
sc.ChartType = xlXYScatterLines
sc.ColorIndex = 1
sc.Weight = xlThin
sc.LineStyle = xlDot
sc.MarkerBackgroundColorIndex = 1
sc.MarkerForegroundColorIndex = 1
sc.MarkerStyle = xlSquare
sc.Smooth = False
sc.Shadow = False
Next
End Sub
Aber irgendwie ändert sich mit diesem "ausgebauten" bzw. erweiterten Makro nichts.
Wer bitte kann mir helfen, wo der Fehler liegt?
Vielen Dank im voraus!
Gruß vom
Martin