Luis
02 de Diciembre del 2004

Hola a Todos, quisiera hacer un formulario en Visual Fox, que me pida datos, con los cuales procesándolos concluyan en enviar y actualizar una hoja de Cálculo en Excel, y por último con estos datos que actualizan un gráfico (en la misma hoja Excel), Hacer que este gráfico se vea en el formulario original que hizo el pedido de datos.
O existe alguna forma que sólo con Visual Fox, se pueda obtener gráficos de la calida de Excel..
De antemano muchas gracias.

luisr
02 de Diciembre del 2004

se puede hacer las dos cosas, pone en el buscador automatización foxpro o en la ayuda, proba con algo de eso, no cuento con ningun ejemplo para enviarte, pero si he visto muchos ejemplos en las distintas paginas. perdona sino te sirvo de mucho.

esgonza
02 de Diciembre del 2004

Ahí te va un ejemplo, espero te ayude


********************
PUBLIC oExcel

oExcel = GetObject('','excel.chart')

WITH oExcel.application
.charts[1].haslegend = .F.
.visible = .F.
.worksheets(1).cells().clear
ENDWITH

WITH oExcel.application.worksheets(1)
.RANGE("A:IV").FONT.SIZE=8
.RANGE("A:IV").ColumnWidth = 10
.RANGE("A1:M3").HorizontalAlignment = 3
.RANGE("B2:M3").HorizontalAlignment = 1
.RANGE("A1:M3").FONT.BOLD = .T.
.RANGE("B2:M3").FONT.BOLD = .F.
.RANGE("B2:M3").NumberFormat="#,##0.00"
.cells(2,1) = '2004'
.cells(3,1) = '2003'
FOR I=1 TO 12
.cells(1,I+1) = left(cmont(ctod('01-'+str(I)+'-2004')),3)
.cells(2,I+1) = 100
.cells(3,I+1) = 200
NEXT
ENDWITH

WITH oExcel.application.worksheets(1).RANGE("A1:M3")
FOR I=1 to 4
.Borders(I).weight=2
.Borders(I).ColorIndex=32
NEXT
ENDWITH

WITH oExcel.application.worksheets(1)
oExcel.application.charts[1].chartwizard(.range(.cells(1,1),.cells(3,13)),;
-4100,1,1,1,1,1,ALLTRIM(Xctas.CD3+' / '+Xctas.DS3),"","","")
ENDWITH

oExcel.application.charts[1].haslegend = .T.
oExcel.application.visible = .T.