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

Añade tu respuesta

Haz clic para o