请教: wps vba 如何设置图表折线的粗细

[fzx4936]

多次尝试都失败了，请各位大侠出手，谢谢了！

'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

[本命雪狮]

应该是可以的，你可以把Xlthick改成对应的数字，比如10，代表10磅宽度，测试没有问题的

[本命雪狮]

简单写了一个，不知道是不是你想要的

Sub test()
  Dim chart As Object
  Dim lines As Object, line As Object
  
  Set chart = ActiveChart
  
  With chart
    Set lines = .SeriesCollection
    For Each line In lines
      line.Format.line.Weight = 10
    Next line
  End With
End Sub

[fzx4936]

To QQ114152850: 不知道你用的是什么wps版本测试的，我用wps 9.1怎么都改变不了图表折线的粗细，没办法只好改用Wps 2019了，无论如何谢谢你了 。

[脆皮大雪糕]

xlThick 是常数，这是excel的常数，要确认一下wps里面有没有这个常数。 在那里加断点看看 xlthick的值到底是啥，别被当做变量，然后因为没声明过也没赋值过就当0处理。

[本命雪狮]

引用 3 楼 fzx4936 的回复:

To QQ114152850:
不知道你用的是什么wps版本测试的，我用wps 9.1怎么都改变不了图表折线的粗细，没办法只好改用Wps 2019了，无论如何谢谢你了 。

我确实是用的WPS2019，同时安装了Office