Gráficos en formulario de excel
Tengo un formulario donde cargo datos a un listbox y un cuadro de imagen donde muestro el gráfico de los datos, he creado 3 archivos de imagen (temp1, temp2 y temp3) con el gráfico para cargarlos al cuadro de imagen, el problema que se me presenta ahora es que siempre carga el archivo 3(temp3). Quisiera ver si alguien me puede ayudar a resolver este detalle para cargar la imagen correcta en cada opción. Tengo el siguiente código:
Private Sub CommandButton5_Click()
Frame12.Visible = True
If ComboBox3.Text = "1" Then
If ComboBox4.Text = "2010" Then
Me.ListBox61.ColumnCount = 3
Me.ListBox61.ColumnWidths = "45;90;40"
Me.ListBox61.RowSource = "Informes!D113:F117"
End If
Set Grafico1 = Sheets("Informes").ChartObjects(1).Chart
NombreArchivo1 = ThisWorkbook.Path & Application.PathSeparator & "temp1.gif"
Grafico1.Export Filename:=NombreArchivo1, FilterName:="GIF"
Image1.Picture = LoadPicture(NombreArchivo1)
If ComboBox4.Text = "2011" Then
Me.ListBox61.ColumnCount = 3
Me.ListBox61.ColumnWidths = "45;90;40"
Me.ListBox61.RowSource = "Informes!D123:F127"
End If
Set Grafico2 = Sheets("Informes").ChartObjects(2).Chart
NombreArchivo2 = ThisWorkbook.Path & Application.PathSeparator & "temp2.gif"
Grafico2.Export Filename:=NombreArchivo2, FilterName:="GIF"
Image1.Picture = LoadPicture(NombreArchivo2)
If ComboBox4.Text = "2012" Then
Me.ListBox61.ColumnCount = 3
Me.ListBox61.ColumnWidths = "45;90;40"
Me.ListBox61.RowSource = "Informes!D133:F137"
End If
Set Grafico3 = Sheets("Informes").ChartObjects(3).Chart
NombreArchivo3 = ThisWorkbook.Path & Application.PathSeparator & "temp3.gif"
Grafico3.Export Filename:=NombreArchivo3, FilterName:="GIF"
Image1.Picture = LoadPicture(NombreArchivo3)
End If
End Sub