Aug 22
Otra forma de generar gráficos en Excel desde VFP a través de automatización
#Define
Tab Chr(9)
#Defin
CRLF Chr(13)+Chr(10)
Public oGraph
_Cliptext = "" + Tab + "Depto X" +
Tab + "Depto Y"
+ CRLF +;
"Arroz" +
Tab + "248" + Tab
+ "297" + CRLF+;
"Maíz"
+ Tab + "339" + Tab
+ "440"
+ CRLF+;
"Cereal"
+
Tab
+
"500"
+
Tab
+
"489"
+ CRLF+;
"Papas"
+
Tab
+
"125"
+
Tab
+
"235"
+ CRLF+;
"Otros"
+
Tab
+
"631"
+
Tab
+
"455"
+ CRLF
oGraph = Getobject("","Excel.Chart")
With oGraph.Application
.Visible
= .T.
.WorkSheets(1).Cells().Clear
.Worksheets(1).Cells(1,1).PasteSpecial
.Charts[1].AutoFormat(-4100,1)
EndWith
Si tienes inquietudes, sígueme en Twitter para contactarme.
Seguir a @davamadort¿Deseas que tu sitio web aparezca en buscadores como google, yahoo, msn?
Contrata un plan de hosting en www.winnethost.com y recibes totalmente gratis el registro de tu sitio web en más de 24 buscadores, entre ellos google, yahoo, msn
El Sitio La Web de Davphantom se encuentra hospedado en WinNetHost.com
