أكاديمية الصقر للتدريب

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


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





تحويل نطاق معين الى صورة

السلام عليكم هذا الكود لاستاذنا الكبير / ياسر خليل ويقوم بتحويل نطاق معين الى صورة حيث يحول النطاق الى رسم تخطيطى اولا ..



29-12-2018 11:58 مساء
أباالحسن
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 18
المشاركات : 349
الجنس : ذكر
تاريخ الميلاد : 7-7-1979
الدعوات : 1
يتابعهم : 4
يتابعونه : 17
قوة السمعة : 832
 offline 

السلام عليكم 
هذا الكود لاستاذنا الكبير / ياسر خليل
ويقوم بتحويل نطاق معين الى صورة 
حيث يحول النطاق الى رسم تخطيطى اولا Chart ثم اخذ صورة منه
ثم حفظ الصورة في نطاق معين - ثم حذف الـ Chart في النهاية
 

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




Sub Export_1st_2nd_Top_Students_To_JPG()
    Dim sh          As Worksheet
    Dim rng         As Range
    Dim objPic      As Shape
    Dim ObjChart    As Chart
    Dim Path         As String
    Dim fn          As String

    On Error Resume Next
      
    ansr = MsgBox("هـل تـريـد تـصـديـر الـطـلاب الأوائـل كـمـلـف صـورة", 64 + vbMsgBoxRight + vbYesNo, "")
    If ansr = vbNo Then Exit Sub
   
   ' انشاء مجلد باسم "الصف والسنة" فى نفس مسار الملف الاصلي
   MkDir ThisWorkbook.Path & "\" & Sheets("Main data").[Y2] _
    & " " & Sheets("Main data").[Z2]
    
    ' "انشاء مجلد باسم "نصف العام" داخل مجلد "الصف والسنة
    MkDir ThisWorkbook.Path & "\" & Sheets("Main data").[Y2] _
    & " " & Sheets("Main data").[Z2] & "\" & ActiveSheet.[EE4]
    
    ' مسار الملف الذي سيتم الحفظ فيه
    Path = ThisWorkbook.Path & "\" & Sheets("Main data").[Y2] _
    & " " & Sheets("Main data").[Z2] & "\" & ActiveSheet.[EE4]
    
    ' اسم الملف داخل مسار الحفظ
    fn = Path & "\" & ActiveSheet.[EE3]
    
    Set sh = ActiveSheet
    Set rng = Range("$B$7:$H$45")

    Application.DisplayAlerts = 0
    Application.ScreenUpdating = 0
    Application.EnableEvents = 0
        rng.CopyPicture xlScreen, xlPicture
        Sheets.Add , Sheets(Sheets.Count)
    
        With Sheets(Sheets.Count)
            .Shapes.AddChart
            .Activate
            .Shapes.Item(1).Select
            Set ObjChart = ActiveChart
            .Shapes.Item(1).Width = rng.Width
            .Shapes.Item(1).Height = rng.Height
            ObjChart.Paste
            ObjChart.Export (fn & ".jpg")
            .Delete
        End With
        
        sh.Activate
            MsgBox "تم حفظ" & " ( " & ActiveSheet.[EE3] & " ) " & "كملف صورة " & _
" ، فى المسـارالتالي" & vbCrLf & Path, vbInformation + vbMsgBoxRight, ""
 
 CreateObject("Shell.Application").Open (Path & "\" & ActiveSheet.[EE3] & ".jpg")
    
    Application.DisplayAlerts = 1
    Application.ScreenUpdating = 1
    Application.EnableEvents = 1

End Sub

30-12-2018 03:35 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10439
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 0
يتابعونه : 533
قوة السمعة : 36372
عدد الإجابات: 252
 offline 
look/images/icons/i1.gif تحويل نطاق معين الى صورة
وعليكم السلام أخي العزيز أبا الحسن 
بارك الله فيك وجزاك الله خيراً

يفضل مع الشرح ملف مرفق لتمام الاستفادة للأعضاء
تقبل تحياتي

05-01-2019 02:34 مساء
مشاهدة مشاركة منفردة [2]
أباالحسن
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 18
المشاركات : 349
الجنس : ذكر
تاريخ الميلاد : 7-7-1979
الدعوات : 1
يتابعهم : 4
يتابعونه : 17
قوة السمعة : 832
 offline 
look/images/icons/i1.gif تحويل نطاق معين الى صورة
هذا هو الملف المرفق 
وهو جزء من برنامج كنترول ابى الحسن 


لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
 
  تحويل نطاق معين الى صورة.zip   تحميل zip مرات التحميل :(13)
الحجم :(398.216) KB


05-01-2019 02:42 مساء
مشاهدة مشاركة منفردة [3]
مالك ماريه
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 15-12-2017
رقم العضوية : 2523
المشاركات : 612
الجنس : ذكر
تاريخ الميلاد : 13-3-1990
يتابعهم : 3
يتابعونه : 14
قوة السمعة : 1149
 offline 
look/images/icons/i1.gif تحويل نطاق معين الى صورة
جزاكم الله خير

05-01-2019 11:04 مساء
مشاهدة مشاركة منفردة [4]
محمد الدسوقى
خبير
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 47
المشاركات : 826
الجنس : ذكر
تاريخ الميلاد : 14-10-1973
الدعوات : 79
يتابعهم : 9
يتابعونه : 763
قوة السمعة : 8651
عدد الإجابات: 8
 offline 
look/images/icons/i1.gif تحويل نطاق معين الى صورة
جزاك الله خيرا أخى الكريم / ابا الحسن
وجعلكم الله سباقا للخير 

12-01-2019 05:18 مساء
مشاهدة مشاركة منفردة [5]
ahmedeita
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 31-12-2018
رقم العضوية : 10704
المشاركات : 182
الجنس : ذكر
تاريخ الميلاد : 3-3-1987
الإنذارات : 1
يتابعهم : 2
يتابعونه : 1
قوة السمعة : 78
 offline 
look/images/icons/i1.gif تحويل نطاق معين الى صورة
رائع ماشاء الله


 


30-03-2019 03:05 مساء
مشاهدة مشاركة منفردة [6]
المبتدأ
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-01-2018
رقم العضوية : 4055
المشاركات : 299
الجنس : ذكر
تاريخ الميلاد : 17-8-1981
يتابعهم : 0
يتابعونه : 2
قوة السمعة : 244
 offline 
look/images/icons/i1.gif تحويل نطاق معين الى صورة
مشكووور




الكلمات الدلالية
صورة ، معين ، نطاق ، تحويل ،


 










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

الساعة الآن 11:29 صباحا