Refresh Chart in userform

Akbarov

Board Regular
Joined
Jun 30, 2018
Messages
100
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]
 

Some videos you may like

Excel Facts

Quick Sum
Select a range of cells. The total appears in bottom right of Excel screen. Right-click total to add Max, Min, Count, Average.

Watch MrExcel Video

Forum statistics

Threads
1,108,939
Messages
5,525,739
Members
409,661
Latest member
pprabha

This Week's Hot Topics

Top