Excel圖表VBA更改散點圖中的線條顏色

Question

此圖表工作原理除了線條顏色未更改外。

  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

我知道這聽起來很奇怪，但試試這個:)

更換.Interior與.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