急急急,如何设置MSchar控件中图例的标示(默认是c1,c2……）?HELP HELP HELP

flyflyfly_woo 2001-03-31 10:43:00

...全文

67 6 打赏收藏转发到动态举报

写回复

用AI写文章

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

flyflyfly_woo 2001-04-01

打赏
举报

哎呀,怎么分加不了了?：（

flyflyfly_woo 2001-04-01

打赏
举报

一个小问题,为什么XDATA(1,1)不能设值?

flyflyfly_woo 2001-04-01

打赏
举报

谢谢,我马上试试

hwmys 2001-04-01

打赏
举报

ReDim Xdata(1 To 8, 1 To 7) As Variant
Xdata(1, 2) = "第一外贸"
Xdata(1, 3) = "航空"
Xdata(1, 4) = "Test 3"
Xdata(1, 5) = "Test 4"
Xdata(1, 6) = "Test 5"
Xdata(1, 7) = "合适软件"
'以上是图例的标示，你可动态添加

Xdata(2, 1) = "1 月"
Xdata(2, 2) = 50
Xdata(2, 3) = 20
Xdata(2, 4) = 30
Xdata(2, 5) = 150
Xdata(2, 6) = 100
Xdata(2, 7) = 40

Xdata(3, 1) = "2 月"
Xdata(3, 2) = 60
Xdata(3, 3) = 50
Xdata(3, 4) = 40
Xdata(3, 5) = 30
Xdata(3, 6) = 20
Xdata(3, 7) = 1.25

PsBar1.Value = PsBar1.Value + 10
Xdata(4, 1) = "3 月"
Xdata(4, 2) = 160.5
Xdata(4, 3) = 160.2
Xdata(4, 4) = 160.3
Xdata(4, 5) = 160
Xdata(4, 6) = 160
Xdata(4, 7) = 160
Xdata(5, 1) = "4 月"
Xdata(5, 2) = 60
Xdata(5, 3) = 260
Xdata(5, 4) = 160
Xdata(5, 5) = 180
Xdata(5, 6) = 190
Xdata(5, 7) = 10.2
Xdata(6, 1) = "5 月"
Xdata(6, 2) = 60
Xdata(6, 3) = 26
Xdata(6, 4) = 16
Xdata(6, 5) = 18
Xdata(6, 6) = 19
Xdata(6, 7) = 102

Xdata(7, 1) = "6 月"
Xdata(7, 2) = 600
Xdata(7, 3) = 60
Xdata(7, 4) = 260
Xdata(7, 5) = 380
Xdata(7, 6) = 90
Xdata(7, 7) = 108
Xdata(8, 1) = "7 月"
Xdata(8, 2) = 60
Xdata(8, 3) = 260
Xdata(8, 4) = 160
Xdata(8, 5) = 180
Xdata(8, 6) = 190
Xdata(8, 7) = 10.2

MSChart1(0).ChartData = Xdata

flyflyfly_woo 2001-04-01