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

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





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


شاطر
 

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

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

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

رسم بيانى فى الفورم الدرس الثانى عشر  Empty
مُساهمةموضوع: رسم بيانى فى الفورم الدرس الثانى عشر    رسم بيانى فى الفورم الدرس الثانى عشر  Avatarالسبت يناير 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

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


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



عدد المساهمات : 26
تاريخ التسجيل : 18/03/2019

رسم بيانى فى الفورم الدرس الثانى عشر  Empty
مُساهمةموضوع: رد: رسم بيانى فى الفورم الدرس الثانى عشر    رسم بيانى فى الفورم الدرس الثانى عشر  Avatarالإثنين أبريل 15, 2019 7:37 pm

شكرا لك
الرجوع الى أعلى الصفحة اذهب الى الأسفل
مجدى يونس
Admin
مجدى يونس

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

رسم بيانى فى الفورم الدرس الثانى عشر  Empty
مُساهمةموضوع: رد: رسم بيانى فى الفورم الدرس الثانى عشر    رسم بيانى فى الفورم الدرس الثانى عشر  Avatarالثلاثاء أبريل 16, 2019 7:44 am

عفوا

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

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