此图表有效,但线条颜色未更改。
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
答案 0 :(得分:1)
我知道这听起来很奇怪,但试试这个:)
将<dependency>
<groupId>javax.json</groupId>
<artifactId>javax.json-api</artifactId>
<version>1.0</version>
</dependency>
替换为.Interior
.Border