Un exemple de chart avec msgraph

Soyez le premier à donner votre avis sur cette source.

Snippet vu 47 081 fois - Téléchargée 35 fois

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

Ajouter un commentaire Commentaires
Messages postés
12
Date d'inscription
mardi 10 juillet 2007
Statut
Membre
Dernière intervention
26 juillet 2007

salut!

juste pour savoir si avec msgraph (ainsi que pour ton programme), il etait possible de faire des "pivot table", j'ai pas l'appellation en francais (je travaille sur un excel us).
Mais d'apres mes souvenirs, c'est ce qui va avec les tableaux croises dynamiques...
Sinon, saurais tu comment faire...?

Merci
Messages postés
152
Date d'inscription
lundi 24 mars 2003
Statut
Membre
Dernière intervention
6 janvier 2009

Bonjour,

J'aimerais savoir comment vous faites pour mettre des titres sur les axes.

Merci
Messages postés
2
Date d'inscription
vendredi 24 septembre 2004
Statut
Membre
Dernière intervention
7 octobre 2004

Salut maczym

C gentil de nous dire c koi ton module

Merci
Messages postés
2
Date d'inscription
mercredi 10 décembre 2003
Statut
Membre
Dernière intervention
7 octobre 2004

Salut,

moi perso j'ai laisser tomber msgraph, j utilise un autre module beaucoup plus documenté ....
Messages postés
41
Date d'inscription
jeudi 18 septembre 2003
Statut
Membre
Dernière intervention
15 juin 2012

Bonjour,

J'ai installé tout Office XP et j'ai toujours l'erreur '800A03EC'.
Est-ce quelqu'un a une solution ?
Si c'est la cas merci beaucoup de la donner.

Merci d'avance
Afficher les 29 commentaires

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.