Un exemple de chart avec msgraph

Commenter

Contenu du snippet

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">

A voir également

S'inscrire maintenant

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.

Du même auteur (gvient)