اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

Refresh code


Akram Galal

الردود الموصى بها

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

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

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

 

  • Like 3
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information