ik wil een grafiekje maken van waarde's die ik exporteer naar een TXT bestand.
dit heb ik gemaakt
maar het lijkt erop dat ik op deze manier alleen maar een speadsheet "office web component" kan gebruiken die in de pagina verwerkt zit.
maar ik snap het nog niet helemaal
Tips? links? alles is welkom
dit heb ik gemaakt
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
| <%@ Language=VBScript %> <HTML> <STRONG><CENTER>TEST grafiek  </CENTER></STRONG> <BODY> <object id=ChartSpace1 classid=CLSID:0002E500-0000-0000-C000-000000000046 style="width:100%;height:480"></object> <object id=Spreadsheet1 src="test.txt" ></object> <script language=vbs> Sub Window_OnLoad() Dim oSheet Dim oChart ChartSpace1.Clear Set oChart = ChartSpace1.Charts.Add chart ChartSpace1.DataSource = spreadsheet1 dim c set c = ChartSpace1.Constants dim oSeries for i=1 to 5 Set oSeries = oChart.SeriesCollection.Add oSeries.SetData c.chDimValues, 0, oSheet.Range(oSheet.Cells(2, i+1), oSheet.Cells(4, i+1)).Address oSeries.SetData c.chDimSeriesNames, 0, oSheet.Cells(1, i+1).Address next oChart.SetData c.chDimCategories, 0, "a2:a4" ' Format the chart to have a legend ChartSpace1.Charts(0).HasLegend = True oChart.Axes(c.chAxisPositionLeft).NumberFormat = "0%" oChart.Axes(c.chAxisPositionLeft).MajorUnit = 0.05 End Sub </script> </BODY> </HTML> |
maar het lijkt erop dat ik op deze manier alleen maar een speadsheet "office web component" kan gebruiken die in de pagina verwerkt zit.
maar ik snap het nog niet helemaal
Tips? links? alles is welkom