我在使用mschart作图时,看帮助时有这段程序,但运行后并没有改到标记大小及形状
'显示系列 1 的标记。
Dim i As Integer
For i = 1 To MSChart1.Plot.SeriesCollection.Count
With MSChart1.Plot.SeriesCollection _
.Item(i).DataPoints.Item(-1).Marker
.Visible = True
.Size = 10
.Style = VtMarkerStyleX
.FillColor.Automatic = False
.FillColor.Set 0, 0, 255
End With
Next i
另外还有就是如何设定折线的粗细
谢谢
'显示系列 1 的标记。
Dim i As Integer
For i = 1 To MSChart1.Plot.SeriesCollection.Count
With MSChart1.Plot.SeriesCollection _
.Item(i).DataPoints.Item(-1).Marker
.Visible = True
.Size = 10
.Style = VtMarkerStyleX
.FillColor.Automatic = False
.FillColor.Set 0, 0, 255
End With
Next i
另外还有就是如何设定折线的粗细
谢谢
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货