多次嘗試都失敗了，請各位大俠出手，謝謝了！
'wps 表格 版本9.1.0.4940
Dim oSeries As Series
With ActiveChart
Set oSeries = .SeriesCollection.NewSeries
oSeries.Name = "sbp"
oSeries.ChartType = xlLine
oSeries.Format.Line.ForeColor.ObjectThemeColor = vbRed
oSeries.Format.Line.Weight = xlThick'不起作用
.SeriesCollection(1).Name = "sbp"
.SeriesCollection(1).Smooth = cbSmooth.Value
.SeriesCollection(1).Format.Line.Visible = True
.SeriesCollection(1).Format.Line.Weight = xlThick'不起作用
.SeriesCollection(1).Format.Line.ForeColor.ObjectThemeColor = 255
.SeriesCollection(1).Border.Color = vbRed
.SeriesCollection(1).Border.Weight = xlThick'不起作用
.SeriesCollection(1).Border.LineStyle = xlContinuous
End With
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/195615.html
標籤：VBA