L'auteur
Francis Faure
 France
Membre Actif (personne physique)
# 0000000001
enregistré le 11/10/2004
http://www.wanagain.net
57 ans
Faure Francis
de la société Design Or Decline
 Fiche personnelle
 Note des membres
pas de note
|
Contributions > 08 - ActiveX - (OLE)
Exemples utilisation "MSGraph.Chart.8"
# 0000000318
ajouté le 11/05/2006 13:36:45 et modifié le 11/05/2006
consulté 11432 fois
Niveau
débutant
Version(s) Foxpro :
VFP 9.0
 Télécharger le ZIP (4.60 Ko)
|
| Description |
|---|
Suite à la demande de Ludo d'un exemple d'utilisation de "MSGraph.Chart.8" sur le newsgroups :
a) en exemple ce programme permettant de générer un fichier JPG du graphe
b) en fichier ci-joint le même code mais dans un formulaire
Espérant répondre à sa demande
Cordialement
|
| Code source : |
|---|
oGraph = CreateObject( "MSGraph.Chart.8" )
WITH oGraph
.ChartType= 4
.Width = 500
.Height = 200
oData = .Application.DataSheet
oData.Cells.Clear
oData.Cells(1,1).Value = "Jours"
oData.Cells(1,2).Value = "Lu"
oData.Cells(1,3).Value = "Ma"
oData.Cells(1,4).Value = "Me"
oData.Cells(1,5).Value = "Je"
oData.Cells(1,6).Value = "Ve"
oData.Cells(1,7).Value = "Sa"
oData.Cells(1,8).Value = "Di"
oData.Cells(2,1).Value = "Valeurs"
oData.Cells(2,2).Value = 10
oData.Cells(2,3).Value = 20
oData.Cells(2,4).Value = 30
oData.Cells(2,5).Value = 50
oData.Cells(2,6).Value = 80
oData.Cells(2,7).Value = 100
oData.Cells(2,8).Value = 30
.Export("c:\temp\test.jpg")
.Application.Quit()
oData = null
ENDWITH
oGraph = null
|
| Commentaires |
|---|
|
|
Retour à la liste
c tres interresant
Merci bq