Gráfico en UserForm
Hola!
Tengo una matriz de datos (vendedores en columnas, meses en filas, A1:R13, con títulos en A y en 1), y necesitaría hacer un GRÁFICO DE COLUMNAS de estos datos. Además, tendría que ser dinámico: ésto es, que cuando agregue los datos de Diciembre, por ejemplo, me actualice automáticamente el Gráfico, con la COLUMNA de ese mes.
¡Muchas Gracias!
Tengo una matriz de datos (vendedores en columnas, meses en filas, A1:R13, con títulos en A y en 1), y necesitaría hacer un GRÁFICO DE COLUMNAS de estos datos. Además, tendría que ser dinámico: ésto es, que cuando agregue los datos de Diciembre, por ejemplo, me actualice automáticamente el Gráfico, con la COLUMNA de ese mes.
¡Muchas Gracias!
1 Respuesta
Respuesta de Juan Carlos González Chavarría
1
Primeramente tendrías que salvar tu archivo como imagen para luego cargarlo a tu UserForm. Es una codificación como esta:
Private Sub UserForm_Initialize()
obColumn.Value = True
End Sub
Private Sub obArea_Click()
Call UpdateChart(xlAreaStacked)
End Sub
Private Sub obColumn_Click()
Call UpdateChart(xlColumnClustered)
End Sub
Private Sub obLine_Click()
Call UpdateChart(xlLineMarkers)
End Sub
Private Sub CloseButton_Click()
Kill ThisWorkbook.Path & Application.PathSeparator & "temp.gif"
Unload Me
End Sub
Private Sub UpdateChart(chtype)
Dim CurrentChart As Chart
Dim Fname As String
Set CurrentChart = Sheets("Data").ChartObjects(1).Chart
CurrentChart.ChartType = chtype
' Save chart as GIF
Fname = ThisWorkbook.Path & Application.PathSeparator & "temp.gif"
CurrentChart.Export FileName:=Fname, FilterName:="GIF"
' Show the chart
Image1.Picture = LoadPicture(Fname)
End Sub
Trata de entenderla porque no puedo aclararte muchas dudas por falta de tiempo.
[email protected]
Private Sub UserForm_Initialize()
obColumn.Value = True
End Sub
Private Sub obArea_Click()
Call UpdateChart(xlAreaStacked)
End Sub
Private Sub obColumn_Click()
Call UpdateChart(xlColumnClustered)
End Sub
Private Sub obLine_Click()
Call UpdateChart(xlLineMarkers)
End Sub
Private Sub CloseButton_Click()
Kill ThisWorkbook.Path & Application.PathSeparator & "temp.gif"
Unload Me
End Sub
Private Sub UpdateChart(chtype)
Dim CurrentChart As Chart
Dim Fname As String
Set CurrentChart = Sheets("Data").ChartObjects(1).Chart
CurrentChart.ChartType = chtype
' Save chart as GIF
Fname = ThisWorkbook.Path & Application.PathSeparator & "temp.gif"
CurrentChart.Export FileName:=Fname, FilterName:="GIF"
' Show the chart
Image1.Picture = LoadPicture(Fname)
End Sub
Trata de entenderla porque no puedo aclararte muchas dudas por falta de tiempo.
[email protected]
