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
44
45
46
|
<%
Set ChartSpace1 = CreateObject("OWC.Chart") 'OWC9
Dim categories(3), values(3)
'titre des series
categories(0) = "1"
categories(1) = "2"
categories(2) = "3"
ChartSpace1.Clear
ChartSpace1.Charts.Add
ChartSpace1.Border.Color="black"
ChartSpace1.Charts(0).HasTitle=true
ChartSpace1.Charts(0).Title.Font="Verdana"
ChartSpace1.Charts(0).Title.Font.Size=12
ChartSpace1.Charts(0).Title.Font.bold=true
ChartSpace1.Charts(0).Title.Caption = "Titre graphique"
ChartSpace1.Charts(0).PlotArea.Interior.Color = "#F2F5F7"
Set c = ChartSpace1.Constants
' Add three series to the chart.
ChartSpace1.Charts(0).SeriesCollection.Add
' données de la serie
ChartSpace1.Charts(0).SeriesCollection(0).Caption = "Essai graphique"
ChartSpace1.Charts(0).SeriesCollection(0).SetData c.chDimCategories,c.chData
Literal, categories
values(0) = 100
values(1) = 150
values(2) = 200
ChartSpace1.Charts(0).SeriesCollection(0).SetData c.chDimValues,c.chDataLite
ral, values
' Parametre de la grille
ChartSpace1.Charts(0).HasLegend = True
ChartSpace1.Charts(0).Axes(c.chAxisPositionLeft).NumberFormat = 0%
ChartSpace1.Charts(0).Axes(c.chAxisPositionLeft).MajorUnit = 0.1
' parametre de la series
ChartSpace1.Charts(0).SeriesCollection(0).border.color="#111111"
ChartSpace1.Charts(0).SeriesCollection(0).interior.color="#FFB56A"
ChartSpace1.ExportPicture Server.MapPath("image.gif"), "gif", 500, 300
%>
|
Informations rapides
