Hi! this is a foxpress article about MSGRAPH.

Gráficos con Fox y MS Graph 8.0
Por Douglas Cruz





Estimado Director:


He leido el artículo que publican en su revista sobre la creacion de graficos en VFP con MS Graph, y en él se afirma que no se pueden pasarse los datos a un objeto ole mediante programacion. Adjunto un pequeño ejemplo que realiza eso.



Este código es una adaptación de otro que me paso Carlos Zubiria

Nota: Este código necesita que esté instalado el MS Graph 8.0 que viene con Office 97

public pantalla
pantalla = createobject("form")

pantalla.addobject("objeto", "olecontrol", "msgraph.chart.8")
pantalla.objeto.top = 0
pantalla.objeto.left = 0
pantalla.objeto.height = pantalla.height
pantalla.objeto.width = pantalla.width
pantalla.visible = .t.
pantalla.objeto.visible = .t.

pantalla.lockscreen = .t.

pantalla.objeto.object.application.chart.charttype = -4100

pantalla.objeto.object.application.datasheet.range("00").value = ""
pantalla.objeto.object.application.datasheet.range("01").value = "Pedro"
pantalla.objeto.object.application.datasheet.range("02").value = "Luis"

pantalla.objeto.object.application.datasheet.range("A0").value = "Enero"
pantalla.objeto.object.application.datasheet.range("A1").value = 25
pantalla.objeto.object.application.datasheet.range("A2").value = 40

pantalla.objeto.object.application.datasheet.range("B0").value = "Febrero"
pantalla.objeto.object.application.datasheet.range("B1").value = 35
pantalla.objeto.object.application.datasheet.range("B2").value = 55

pantalla.objeto.object.application.datasheet.rows("4").delete
pantalla.objeto.object.application.datasheet.rows("5").delete
pantalla.objeto.object.application.datasheet.columns("4").delete
pantalla.objeto.object.application.datasheet.columns("4").delete

pantalla.objeto.object.application.chart.hastitle = .t.
pantalla.objeto.object.application.chart.charttitle.text = "Mi gráfico"

pantalla.lockscreen = .f.

Douglas Cruz
d969066@2hn.com
ICQ 13319393

Hope this help...