Refresh Chart in userform

[Akbarov]

Hey community,

I use userform where users can select workers name and gets details about him. I want to put chart in userform to show workers progress.
But it shows only last result. it is not updating when i choose different worker.

Any solution for instant update of chart result ?'

[COLOR=#333333]Private Sub ListBox1_Click()[/COLOR]<code style="margin: 0px; padding: 0px; font-style: inherit; font-weight: inherit; line-height: 12px;">Dim i As Long
    Sheets("Nomreler").Range("Z2") = Me.ListBox1
        For i = 1 To 20
            Me.MultiPage1.Pages(0).Controls("Label" & i + 2).Caption = Sheets("Nomreler").Cells(i, "Y").Value
        Next i
             Dim Fname As String

    Call SaveChart
    Fname = ThisWorkbook.Path & "\temp1.gif"
    Me.Image1.Picture = LoadPicture(Fname)

End Sub

Private Sub SaveChart()
    Dim MyChart As Chart
    Dim Fname As String

    Set MyChart = Sheets("Data").ChartObjects("Chart 4").Chart
    Fname = ThisWorkbook.Path & "\temp1.gif"
    MyChart.Export Filename:=Fname, FilterName:="GIF" </code>[COLOR=#333333]End Sub[/COLOR]

 

[Macropod]

Cross-posted at: https://www.excelforum.com/excel-programming-vba-macros/1241760-refresh-chart-in-userform.html
Please read Mr Excel's policy on Cross-Posting in rule 13: http://www.mrexcel.com/forum/board-announcements/99490-forum-rules.html