Aug 22
Uno de los temas más solicitados a mi correo son los gráficos; este es un BUEN ejemplo de como hacerlo, y además agregándole un gran efecto.
LOCAL objXL, objXLchart, intRotate
objXL = CreateObject("Excel.Application")
objXL.Workbooks.Add
objXL.Cells(1,1).Value = 50
objXL.Cells(1,2).Value = 10
objXL.Cells(1,3).Value = 15
objXL.Range("A1:C1").Select
objXLchart = objXL.Charts.Add()
objXL.Visible = .t.
objXLchart.Type = -4100
For intRotate = 5 To 180 Step 5
objXLchart.Rotation = intRotate
Next
For intRotate = 175 To 0 Step -5
objXLchart.Rotation = intRotate
Next
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
7 Oct 2008 19:21
AMIGO TE FELICITO ES UNA MUY BUENA PAGINA, UNA PREGUNTA ESTOY VIENDO ESTE CODIGO....
Gráficos con Excel y con buenos efectos
?COMO PUEDO CAMBIAR A QUE EL GRAFICO EN LUGAR DE BARRAS ME SALGAEN LINEAS?
gRACIAS POR TU AYUDA
MI CORREO ES cararmhid@XXXXXXX.com