Excel-Diagramm VBA ändern Linienfarbe in Streudiagramm

Question

Dieses Diagramm funktioniert, außer die Farbe der Linie wird nicht geändert.

  Sheets("Analysis").ChartObjects("Chart 1").Activate 
      With Sheets("Analysis").ChartObjects("Chart 1").Chart.SeriesCollection(1) 
       .XValues = Sheets("Data").Range("A2:A33") 
       .Values = Sheets("Data").Range("B2:B33") 
       .Name = "Plot1" 
       .Interior.Color = RGB(100, 0, 100) 
      End With     

Answer 1

Ich weiß, es klingt komisch, aber versuchen Sie dies :)

ersetzen .Interior mit .Border

Sheets("Analysis").ChartObjects("Chart 1").Activate 
With Sheets("Analysis").ChartObjects("Chart 1").Chart.SeriesCollection(1) 
    .XValues = Sheets("Data").Range("A2:A33") 
    .Values = Sheets("Data").Range("B2:B33") 
    .Name = "Plot1" 
    .Border.Color = RGB(100, 0, 100) 
End With