ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

Exemples utilisation "MSGraph.Chart.8"   



L'auteur

Francis Faure
France France
Membre Actif (personne physique)
# 0000000001
enregistré le 11/10/2004

http://www.wanagain.net
56 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é 10985 fois
Niveau débutant

Version(s) Foxpro :
VFP 9.0

Zoomer sur l'image

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
le 19/06/2007, skand a écrit :
c tres interresant
Merci bq


Publicité

Les pubs en cours :


www.atoutfox.org - Site de la Communauté Francophone des Professionnels FoxPro - v3.4.0 - © 2004-2024.
Cette page est générée par un composant COM+ développé en Visual FoxPro 9.0-SP2-HF3