اظهار نطاق معين من الاكسيل في الفورم (ِA1:D29)

استاذي الاستاذ مجدي
بشكر حضرتك على الفيديوهات الرائعة
كتت عاوز اشير مع حضرتك اخر حاجة انا عملتها
بعد ما حضرتك علمتني من الصفر
الفضل لله اولا ثم لحضرتك
وكنت عاوز موبيل حضرتك اذا كنت لا تمانع

ويا ريت اشوف لحضرتك حاجة عن الدوال الحسابية
في برمجة ال VBA
زي الجمع والقسمة بين اكثر من تكست بوكس
وتحويل البيانات من فورم الى اخر
من شيت الى اخر

تحياتي
تلميذك
حسن شوقي
00971507472037



Dim fname As String
Dim ChartNum As Integer

Private Sub UserForm_Initialize()
   ChartNum = 1
   UpdateChart
End Sub

Private Sub PreviousButton_Click()
   If ChartNum = 1 Then ChartNum = 5 Else: ChartNum = ChartNum - 1
   UpdateChart
 
End Sub

Private Sub NextButton_Click()
   If ChartNum = 5 Then ChartNum = 1 Else: ChartNum = ChartNum + 1
   UpdateChart
 
End Sub

Private Sub CloseButton_Click()
   Unload frmChartC1
   
End Sub

Private Sub UpdateChart()
   Set currentchart = Sheets("Print2").ChartObjects(ChartNum).Chart
   currentchart.Parent.Width = 676
   currentchart.Parent.Height = 259

'   Save chart as GIF
   fname = ThisWorkbook.Path & Application.PathSeparator & "temp.gif"
   currentchart.Export FileName:=fname, FilterName:="GIF"

'   Show the chart
   Image1.Picture = LoadPicture(fname)
End Sub
Private Sub UserForm_QueryClose( _
   Cancel As Integer, CloseMode As Integer)
 
   If CloseMode = vbFormControlMenu Then
       Cancel = True
       MsgBox "The ‘x’ does not work……………..Use Close button "
   End If
End Sub


بس المشكله ان كل مرة تطلع رسالة
runtime error 481
invalid picture

ارجو المساعدة