logo

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
Hatem Eissa hassona229-- لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة اكسيل مشاريع جاهزه



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





29-12-2018 11:58 مساءً
السلام عليكم
هذا الكود لاستاذنا الكبير / ياسر خليل
ويقوم بتحويل نطاق معين الى صورة
حيث يحول النطاق الى رسم تخطيطى اولا Chart ثم اخذ صورة منه
ثم حفظ الصورة في نطاق معين - ثم حذف الـ Chart في النهاية


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



CODE

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




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

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

أثارت هذه المشاركة إعجاب: السعيد الجزائري،



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


attachتحويل نطاق معين الى صورة.zip
 
 
  تحويل نطاق معين الى صورة.zip   تحميل zip مرات التحميل :(11)
الحجم :(398.216) KB


أثارت هذه المشاركة إعجاب: السعيد الجزائري،



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




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




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




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




اضافة رد جديد اضافة موضوع جديد



المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
كيفية عمل كومبوبوكس في نطاق معين من الخلايا معينة يظهر ويختفي عند التحديد mmagedmemo
2 1166 ابو طيبه
تعديل على كود VBA لنسخ خلايا إلى نطاق معين في وجود شرط معين aelsheikh
1 1174 aelsheikh
نسخ و طباعة نطاق معين بشرط او اكثر halan550
4 1641 YasserKhalil
السماح للمستخدمين بالتعديل فى نطاق معين فى حالة حماية الشيت Omar2
4 1423 YasserKhalil
الحصول على اكبر قيمة واقل قيمة فى نطاق معين بستخدام معادلات الصفيف - أكاديمية الصقر للتدريب الصقر
9 3511 MohammedMostafa

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









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

الساعة الآن 04:08 PM