Ce code utilise msgraph installé sur le serveur asp.
Il faut aller dans les options d'installation d'excel ou office pour installer ce composant.
Source / Exemple :
<%
'
' exemple de création d'un graphique avec msgraph
' il faut le composant msgraph installé sur le serveur
' (voir avec installation excel)
'
' Creation du composant
Set pie = CreateObject( "MSGraph.Chart" )
Set ds = pie.Application.DataSheet
ds.Cells.Clear
pie.Width = 500
pie.Height = 500
'
' les données (on peut bien sur les prendres dans une base)
'
ds.Cells(1,2).Value = "TITI alain"
ds.Cells(2,2).Value = "11,20"
ds.Cells(1,3).Value = "vient gérard"
ds.Cells(2,3).Value = "15"
ds.Cells(1,4).Value = "TOTO FABRICE"
ds.Cells(2,4).Value = "17"
ds.Cells(1,5).Value = "EMILE CLAUDE"
ds.Cells(2,5).Value = "19"
ds.Cells(1,6).Value = "BERNARD BERNARD"
ds.Cells(2,6).Value = "20"
ds.Cells(1,7).Value = "TUTU ALAIN"
ds.Cells(2,7).Value = "22"
' Mise en forme du chart
' un certains nombre de type de graphiques
'
' Const xl3DArea = -4098 (&HFFFFEFFE)
' Const xl3DAreaStacked = 78 (&H4E)
' Const xl3DAreaStacked100 = 79 (&H4F)
' Const xl3DBarClustered = 60 (&H3C)
' Const xl3DBarStacked = 61 (&H3D)
' Const xl3DBarStacked100 = 62 (&H3E)
' Const xl3DColumn = -4100 (&HFFFFEFFC)
' Const xl3DColumnClustered = 54 (&H36)
' Const xl3DColumnStacked = 55 (&H37)
' Const xl3DColumnStacked100 = 56 (&H38)
' Const xl3DLine = -4101 (&HFFFFEFFB)
' Const xl3DPie = -4102 (&HFFFFEFFA)
' Const xl3DPieExploded = 70 (&H46)
' Const xlArea = 1
' Const xlAreaStacked = 76 (&H4C)
'
pie.ChartType = -4102
pie.HasLegend = True
pie.HasTitle = False
pie.Legend.Font.Size = 8
pie.Legend.AutoScaleFont = True
pie.ApplyDataLabels
pie.SeriesCollection(1).DataLabels.AutoScaleFont = True
pie.SeriesCollection(1).DataLabels.Font.Size = 8
pie.ChartArea.Interior.ColorIndex = 2
pie.PlotArea.Width = 200
pie.PlotArea.Height = 200
'
' voici quelque options suppléméntaires pour certains types
'
' pie.rotation = 20
' pie.Perspective = 10
'
' Exportation de l image
'
tFile = Server.MapPath ("pie.gif")
'
' ATTENTION IL FAUT POUVOIR ECRIRE DANS LE REPERTOIRE OU SE TROUVE LA PAGE
'
pie.Export tFile
%>
<img src="pie.gif">
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.