الاستاذ مجدى
عزيزي الزائر / عزيزتي الزائرة يرجي التكرم بتسجبل الدخول اذا كنت عضو معنا
او التسجيل ان لم تكن عضو وترغب في الانضمام الي اسرة المنتدي
سنتشرف بتسجيلك
شكرا
ادارة المنتدي







 
الرئيسيةالأستاذ التعليماليوميةس .و .جبحـثالأعضاءضع التسجيلالمجموعاتدخولالتسجيل
سبحانك لا علم لنا إلا ما علمتنا أنك أنت العليم
عزيزى الزائر قم بالتسجيل بالمنتدى لمشاهدة باقى الاقسام المهمه
مع تحيات مجدى عبد المنعم محمود يونس ببورسعيد " مدير المنتدى "
أهلا بك من جديد يا زائر آخر زيارة لك كانت في
آخر عضو مسجل كاري محمد فمرحبا به


شاطر | 
 

 رسم بيانى فى الفورم الدرس الثانى عشر

اذهب الى الأسفل 
كاتب الموضوعرسالة
مجدى يونس
Admin
avatar

عدد المساهمات : 1096
تاريخ التسجيل : 22/02/2013
العمر : 64

مُساهمةموضوع: رسم بيانى فى الفورم الدرس الثانى عشر    السبت يناير 12, 2019 10:06 am

رسم بيانى فى الفورم الدرس الثانى عشر




Const MyWidth As Single = 75   '  عرض الكنترول
Const MyHight As Single = 18   '  طول الكنترول

Private Sub kh_AddControlsRng()
Dim X As Range
Dim Lf As Double, Tp As Double
Dim ContColmn As Integer, r As Integer, c As Integer

Set X = Range("A1:C7")
ContColmn = X.Columns.Count
For r = 1 To X.Rows.Count
   For c = 1 To ContColmn
       Lf = (ContColmn - c) * MyWidth
       With Me.Frame1.Controls.Add("Forms.Label.1")
           .BorderStyle = 1
           .Move Lf, Tp, MyWidth, MyHight
           Call kh_Format(.Name, X.Cells(r, c))
       End With
   Next
   Tp = Tp + MyHight
   c = 0
Next
Set X = Nothing
End Sub

Private Sub kh_Format(iName As String, MyCel As Range)
With Me.Controls(iName)
   .BackColor = MyCel.Interior.Color
   .Caption = MyCel.Value
   .TextAlign = 2
   With .Font
       .Name = MyCel.Font.Name
       .Bold = True
       .Size = MyCel.Font.Size
   End With
End With
End Sub


Private Sub PictureChartObject()
Set CurrentChart = ورقة1.ChartObjects("مخطط 2").Chart
Fname = ThisWorkbook.Path & Application.PathSeparator & "temp.gif"
CurrentChart.Export FileName:=Fname, FilterName:="GIF"
Image1.Picture = LoadPicture(Fname)
'---------------------------------
End Sub

Private Sub Frame1_Click()

End Sub

Private Sub Image1_Click()

End Sub

Private Sub UserForm_Initialize()
Me.Frame1.SpecialEffect = 0
Me.Image1.SpecialEffect = 0

PictureChartObject
kh_AddControlsRng
End Sub



_________________
عندما تولد يابن ادم يؤذن فى أذنك من غير صلاة وعندما تموت يصلى عليك من غير أذان وكأن حياتك فى الدنيا ليست سوى الوقت الذى تقضيه بين الأذان والصلاة فلا تقضيهما فيما لاينفع
---((الله ناظرى الله سامعى الله مطلع علي))-

الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو http://magdi54.forumegypt.net
 
رسم بيانى فى الفورم الدرس الثانى عشر
الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
الاستاذ مجدى :: قسم مجموعة الاوفيس :: قسم الاكسل-
انتقل الى: