[color=blue]Dim[/color] oSeries [color=blue]As[/color] Series
 
  [color=darkgreen]' wenn das Diagramm auf einem Arbeitsblatt liegt
  Worksheets("Tabelle1").ChartObjects("Diagramm 2").Activate
 
  [color=darkgreen]' oder so, wenn, das Diagramm selbst ein Blatt ist
  Charts("Diagramm1").Select
 
  [color=darkgreen]' Markierung im aktuellen Diagramm aufheben (sieht schöner 
  ' aus)
  ActiveChart.Deselect
 
  [color=darkgreen]' alle Linien ausblenden
  For Each[/color] oSeries [color=blue]In[/color] ActiveChart.SeriesCollection
    [color=blue]With[/color] oSeries
      .MarkerStyle = xlMarkerStyleNone
      .Border.LineStyle = xlLineStyleNone
    End With[/color]
  [color=blue]Next[/color] oSeries
 
  [color=darkgreen]' alle Linien einblenden
  For Each[/color] oSeries [color=blue]In[/color] ActiveChart.SeriesCollection
    [color=blue]With[/color] oSeries
 
      [color=darkgreen]' Art der Datenpunkt-Markierung
      [color=darkgreen]' - xlMarkerStyleAutomatic
      [color=darkgreen]' - xlMarkerStyleCircle
      [color=darkgreen]' - xlMarkerStyleDash
      [color=darkgreen]' - xlMarkerStyleDiamond
      [color=darkgreen]' - xlMarkerStyleDot
      [color=darkgreen]' - xlMarkerStyleNone
      [color=darkgreen]' - xlMarkerStylePicture
      [color=darkgreen]' - xlMarkerStylePlus
      [color=darkgreen]' - xlMarkerStyleSquare
      [color=darkgreen]' - xlMarkerStyleStar
      [color=darkgreen]' - xlMarkerStyleTriangle
      [color=darkgreen]' - xlMarkerStyleX
      .MarkerStyle = xlMarkerStyleAutomatic
 
      [color=darkgreen]' Hintergrundfarbe der Datenpunkt-Markierung
      [color=darkgreen]' - xlColorIndexAutomatic
      [color=darkgreen]' - xlColorIndexNone
      [color=darkgreen]' - 1 bis 59
      .MarkerBackgroundColorIndex = xlColorIndexNone
 
      [color=darkgreen]' Vordergrundfarbe der Datenpunkt-Markierung
      [color=darkgreen]' - xlColorIndexAutomatic
      [color=darkgreen]' - xlColorIndexNone
      [color=darkgreen]' - 1 bis 59
      .MarkerForegroundColorIndex = xlColorIndexAutomatic
 
      [color=darkgreen]' Größe der Datenpunkt-Markierung
      [color=darkgreen]' - 2 bis 72
      .MarkerSize = 5
 
      [color=darkgreen]' Datenpunkt-Markierung schattieren?
      [color=darkgreen]' - True
      [color=darkgreen]' - False
      .Shadow = [color=blue]False[/color]
 
      [color=darkgreen]' Linien glätten?
      [color=darkgreen]' - True
      [color=darkgreen]' - False
      .Smooth = [color=blue]False[/color]
 
      [color=darkgreen]' Rahmen festlegen, bei Liniendiagrammen ist's die _
        Linie[/color]
      [color=blue]With[/color] .Border
 
        [color=darkgreen]' Linienfarbe
        [color=darkgreen]' - xlColorIndexAutomatic
        [color=darkgreen]' - xlColorIndexNone
        [color=darkgreen]' - 1 bis 59
        .ColorIndex = xlColorIndexAutomatic
 
        [color=darkgreen]' Linienstärke
        [color=darkgreen]' - xlHairline
        [color=darkgreen]' - xlThin
        [color=darkgreen]' - xlMedium
        [color=darkgreen]' - xlThick
        .Weight = xlMedium
 
        [color=darkgreen]' Linienart
        [color=darkgreen]' - xlContinuous
        [color=darkgreen]' - xlDash
        [color=darkgreen]' - xlDashDot
        [color=darkgreen]' - xlDashDotDot
        [color=darkgreen]' - xlDot
        [color=darkgreen]' - xlDouble
        [color=darkgreen]' - xlSlantDashDot
        [color=darkgreen]' - xlLineStyleNone
        .LineStyle = xlContinuous
 
      End With[/color]
 
    End With[/color]
  [color=blue]Next[/color] oSeries
 
  [color=darkgreen]' Speicher freigeben
  [color=blue]Set[/color] oSeries = [color=blue]Nothing[/color]
 
  [color=darkgreen]' nur 4. Linie ansprechen
  [color=blue]With[/color] ActiveChart.SeriesCollection(4)
    .MarkerStyle = ...
    [color=blue]With[/color] .Border
      .LineStyle = ...
    End With[/color]
  End With[/color]

Viel Spass,
R@lf