Refresh Chart in userform

Akbarov

Board Regular
Joined
Jun 30, 2018
Messages
97
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 ?'

Code:
[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]
 

Forum statistics

Threads
1,085,567
Messages
5,384,481
Members
401,904
Latest member
markschneider89

Some videos you may like

This Week's Hot Topics

Top