Generar Grafica en Excel usando Velole

vForum público de la plataforma de desarrollo Velneo

Moderador: vCoaches

Responder
Avatar de Usuario
spereira
vAdviser
vAdviser
Mensajes: 630
Registrado: 19 Dic 2005, 19:25
Ubicación: Sanxenxo - Vigo - Galiza - España

Generar Grafica en Excel usando Velole

Mensaje por spereira » 26 Mar 2008, 13:38

¿Alguien tendria algun ejemplo o sabria que comando se usa para generar graficas usando velole?


Thanks!

VIC8162
vMate
vMate
Mensajes: 53
Registrado: 21 Sep 2005, 10:59

Mensaje por VIC8162 » 27 Mar 2008, 13:56

Hola,

A partir de la sintaxis generada por el grabador de macros de Microsoft Excel, un esquema de código con Velneo y VelOLE2 sería:

Rem -> Delimitador de Cadenas Comilla Doble
Set -> C , fAsciiToCadena(34)

Rem -> Constante VBA Tipo de Gráfico
Set -> xlColumnClustered , 51

Rem -> Generar Gráfico
Rem -> Los datos a graficar están en el rango A1:D3
Set -> i , »VELOLE2.OLE2Command( 1,"Range("+'C'+"A1"+":"+"D3"+'C'+").Select()")
Set -> i , »VELOLE2.OLE2Command( 1,"ActiveSheet.Shapes.AddChart()")
Set -> i , »VELOLE2.OLE2Command( 1,"ActiveSheet.Shapes.SelectAll()")
Set -> i , »VELOLE2.OLE2Command( 1,"ActiveChart.ChartType="+'xlColumnClustered')

Rem -> Grabar Gráfico
Rem -> El Gráfico generado puede importarse en un campo tipo Objeto Binario
Set -> sTipo , "jpg"
Set -> sGráfico , d+"\\"+"Gráfico"+"."+'sTipo'
Set -> i , »VELOLE2.OLE2Command( 1,"ActiveChart.Export("+'C'+'sGrafico'+'C'+","+'C'+'sTipo'+'C'+",False)")

Espero que te sirva de ayuda.

Saludos,
Gustavo Moreno

Responder