Excel - insertar un grafico en un formulario y que se modifique en tiempo real

   
Vista:

insertar un grafico en un formulario y que se modifique en tiempo real

Publicado por joselyn (1 intervención) el 07/03/2012 15:12:04
Hola chicos y chicas:

Estoy trabajando en un sistema con excel y macros, no soy experta pero algo hago. Tengo el siguiente problema, tengo en el menu principal un botos estadistica y mediante un formulario me muestra diferentes graficos asociados a los resultados diarios del sistema. El problema es que solo tengo asociada la imagen del grafico y necesito asiciar el grafico al formulario para que me muestre las variaciones diarias. Espero me puedan ayudar. Saludos.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de JuanC

insertar un grafico en un formulario y que se modifique en tiempo real

Publicado por JuanC juanc2942@gmail.com (1053 intervenciones) el 10/03/2012 12:04:31
una forma es exportando el gráfico como imagen y luego cargarlo en el formulario...
(para hacerlo en tiempo real habría que usar algún temporizador y además ver
de qué manera se actualizan los datos en la hoja)

un pequeño ejemplo:

[url]
Private Sub Button_Click()
Dim C As Chart, Hoja As Worksheet
Dim sFileName$
On Error Resume Next
Set Hoja = Worksheets("Hoja1")
Set C = Hoja.ChartObjects(1).Chart

sFileName = ActiveWorkbook.Path & "\" & Mid(CStr(Rnd), 3) & ".gif"
C.Export sFileName

If Dir(sFileName) <> "" Then
Me.Width = 2 * C.ChartArea.Width + 5
Me.Height = 2 * C.ChartArea.Height + 25

Image1.Height = 2 * C.ChartArea.Height
Image1.Width = 2 * C.ChartArea.Width
Image1.Left = 0
Image1.Top = 0
Image1.Picture = LoadPicture(sFileName)
End If

Set C = Nothing
Set Hoja = Nothing

Kill sFileName
End Sub
[/url]

Saludos, desde Baires, JuanC
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar