回复 3楼 laibinhua
图片附件: 游客没有浏览图片的权限,请
登录 或
注册
程序代码:
thisform.MSChart1.Legend.Location.LocationType = 1 && 0..8
nCount = thisform.MSChart1.Plot.SeriesCollection.Count
DIMENSION aColor[nCount,3]
FOR i=1 TO nCount
aColor[i,1] = i*100+10
aColor[i,2] = i*10+120
aColor[i,3] = i*100+30
ENDFOR
FOR i=1 TO nCount
WITH thisform.MSChart1.Plot.SeriesCollection(i).DataPoints(-1)
.Brush.FillColor.Set(aColor[i,1],aColor[i,2],aColor[i,3])
WITH .DataPointLabel
.LocationType = 2 && 0..8
WITH .VtFont
.Size = 12
.VtColor.Set(200,200,200) && RGB
ENDWITH
ENDWITH
ENDWITH
ENDFOR