Refresh code

[Akram Galal]

 

السلام عليكم ورحمه الله وبركاته
تحية طيبة على جميع أعضاء المنتدى
أريد كود يقوم بعمل ريفريش للفورم
جزاكم الله خيرا.

[Ali Mohamed Ali]

وعليكم السلام

تفضل-يمكنك تجربة هذه الأكواد طالما انك لم ترفع ملف

Private Sub UserForm_Initialize()
    TextBox1.Text = "" 
End Sub
Private Sub CommandButton1_Click()
    TextBox1.Text = "Sid"
    MsgBox "Re-Initialzing the Userform"
    UserForm_Initialize
End Sub

Private Sub UserForm_Initialize()
ChartNum = 1
UpdateChart_OverallOEE
UpdateChart_OverallUnits
UpdateChart_OverallWeights
 
End Sub
Private Sub UpdateChart_OverallOEE()
    Set CurrentChart = Sheets("Chart_OverallOEE").ChartObjects(ChartNum).Chart
    CurrentChart.Parent.Width = 710
    CurrentChart.Parent.Height = 150
'   Save chart as GIF
    Fname = ThisWorkbook.Path & Application.PathSeparator & "Chart_OverallOEE.gif"
    CurrentChart.Export Filename:=Fname, FilterName:="GIF"
'   Show the chart
    img_Chart_OverallOEE.Picture = LoadPicture(Fname)
End Sub
Private Sub UpdateChart_OverallUnits()
    Set CurrentChart = Sheets("Chart_OverallUnits").ChartObjects(ChartNum).Chart
    CurrentChart.Parent.Width = 700
    CurrentChart.Parent.Height = 150
'   Save chart as GIF
    Fname = ThisWorkbook.Path & Application.PathSeparator & "Chart_OverallUnits.gif"
    CurrentChart.Export Filename:=Fname, FilterName:="GIF"
'   Show the chart
    img_Chart_OverallUnits.Picture = LoadPicture(Fname)
End Sub
Private Sub UpdateChart_OverallWeights()
    Set CurrentChart = Sheets("Chart_OverallWeights").ChartObjects(ChartNum).Chart
    CurrentChart.Parent.Width = 700
    CurrentChart.Parent.Height = 175
'   Save chart as GIF
    Fname = ThisWorkbook.Path & Application.PathSeparator & "Chart_OverallWeights.gif"
    CurrentChart.Export Filename:=Fname, FilterName:="GIF"
'   Show the chart
    img_Chart_OverallWeights.Picture = LoadPicture(Fname)
End Sub