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

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
مالك ماريه ali mohamed ali-- لا تميز خلال هذه الفترة YasserKhalil جمع خلايا بها معادلات اكسيل اسئله واجابات


اعلان هنا
ألعاب فلاش أون لاين
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا



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





حفظ نطاق الطباعة كصورة Export Print Area As JPG Picture

السلام عليكم ورحمة الله وبركاته أقدم لكم كود يقوم بتصدير نطاق الطباعة Print Area كصورة ، ويتم تسمية الصورة بمحتوى الخلي ..



28-08-2019 06:53 صباحا
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8122
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 428
قوة السمعة : 23621
الاعجاب : 2396
 Online 

السلام عليكم ورحمة الله وبركاته

أقدم لكم كود يقوم بتصدير نطاق الطباعة Print Area كصورة ، ويتم تسمية الصورة بمحتوى الخلية A1.
تم إعداد نطاق الطباعة في الملف المرفق ليكون النطاق A1:E12 كما هو موضح بالصورة التالية :
x3Bpw_001

قم بوضع الكود التالي في موديول عادي Standard Module ثم نفذ الأمر ليتم تصدير نطاق الطباعة كصورة بامتداد JPG في نفس مسار المصنف الحالي ، ويمكن تعديل المسار من خلال الكود ليلائم المستخدم.
Sub ExportPrintAreaToJPG()
    Dim objChart    As Chart
    Dim i           As Integer
    Dim intCounter  As Integer
    Dim strRange    As String

    strRange = CStr(Worksheets("Sheet1").PageSetup.PrintArea)

    Application.ScreenUpdating = False
        Call Sheet1.Range(strRange).CopyPicture(xlScreen, xlPicture)
    
        With Sheet2
            .Shapes.AddChart
            .Activate
    
            .Shapes.Item(1).Select
            Set objChart = ActiveChart
    
            .Shapes.Item(1).Width = Sheet1.Range(strRange).Width
            .Shapes.Item(1).Height = Sheet1.Range(strRange).Height
            objChart.Paste
    
            objChart.Export Filename:=ThisWorkbook.Path & "" & Sheet1.Range("A1").Value & ".JPG"
    
            intCounter = Sheet2.Shapes.Count
            For i = 1 To intCounter
                .Shapes.Item(1).Delete
            Next i
        End With
        
        Application.Goto Sheet1.Range("A1")
    Application.ScreenUpdating = False

    MsgBox "Done...", 64
End Sub


وهذه الصورة هي ناتج عملية التصدير التي قام بها الكود
fKxve_002


لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب

إعداد / ياسر خليل أبو البراء
 
 


أثارت هذه المشاركة إعجاب: الصقر، Yasser Elaraby، tahar m، محمود ابو الدهب، محمد الدسوقى، hassona229، ali mohamed ali، EM_ACC، محمد أبو عبدو، مالك ماريه،





28-08-2019 07:44 صباحا
مشاهدة مشاركة منفردة [1]
الصقر
menu_open عضوية موثقة
مدير المنتدى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 2
المشاركات : 1732
الجنس : ذكر
الدعوات : 19
يتابعهم : 0
يتابعونه : 592
قوة السمعة : 17924
الاعجاب : 395
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif حفظ نطاق الطباعة كصورة Export Print Area As JPG Picture

الله عليك يا حبيب والديك
123



أثارت هذه المشاركة إعجاب: YasserKhalil،


توقيع :الصقر

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



28-08-2019 08:35 صباحا
مشاهدة مشاركة منفردة [2]
Yasser Elaraby
menu_open عضوية موثقة
المشرف العام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 1222
الجنس : ذكر
الدعوات : 13
مشاركات مكتبة الميديا: 39
يتابعهم : 2
يتابعونه : 615
قوة السمعة : 8865
الاعجاب : 537
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif حفظ نطاق الطباعة كصورة Export Print Area As JPG Picture
0146


أثارت هذه المشاركة إعجاب: YasserKhalil،


توقيع :Yasser Elaraby
663013020



28-08-2019 09:16 صباحا
مشاهدة مشاركة منفردة [3]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8122
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 428
قوة السمعة : 23621
الاعجاب : 2396
 Online 
look/images/icons/i1.gif حفظ نطاق الطباعة كصورة Export Print Area As JPG Picture
أخي الحبيب حسام
أخي الحبيب ياسر العربي
مشكور على مروركما العطر والمشرف بالموضوع .. بارك الله فيكما ودمتما في حفظ الله

أثارت هذه المشاركة إعجاب: الصقر،




28-08-2019 05:03 مساء
مشاهدة مشاركة منفردة [4]
محمود ابو الدهب
menu_open
مشرف على لغات برمجة والاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 1287
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 59
يتابعهم : 6
يتابعونه : 221
قوة السمعة : 4273
الاعجاب : 557
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif حفظ نطاق الطباعة كصورة Export Print Area As JPG Picture
بارك الله فيك استاذ ياسر موضوع ولا اروع
 

أثارت هذه المشاركة إعجاب: YasserKhalil،


توقيع :محمود ابو الدهب
لى عظيم الشرف بالانضمام لهذا الصرح العظيم
وكم أتمنى من الله
ان يعيننى ويعلمنى من علمة الواسع فهو ولي ذالك وهو على كل شي قدير

تحياتى وتقدير للجميع  محمود ابوالدهب


28-08-2019 06:37 مساء
مشاهدة مشاركة منفردة [5]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8122
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 428
قوة السمعة : 23621
الاعجاب : 2396
 Online 
look/images/icons/i1.gif حفظ نطاق الطباعة كصورة Export Print Area As JPG Picture
الأروع هو مرورك أخي الحبيب محمود .. بارك الله فيك

أثارت هذه المشاركة إعجاب: محمود ابو الدهب،




28-08-2019 08:37 مساء
مشاهدة مشاركة منفردة [6]
محمد الدسوقى
menu_open
خبير
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 47
المشاركات : 684
الجنس : ذكر
تاريخ الميلاد : 14-10-1973
الدعوات : 62
يتابعهم : 9
يتابعونه : 579
قوة السمعة : 7258
الاعجاب : 354
 offline 
look/images/icons/i1.gif حفظ نطاق الطباعة كصورة Export Print Area As JPG Picture
2015_1418710703_134

أثارت هذه المشاركة إعجاب: YasserKhalil،




28-08-2019 09:06 مساء
مشاهدة مشاركة منفردة [7]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8122
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 428
قوة السمعة : 23621
الاعجاب : 2396
 Online 
look/images/icons/i1.gif حفظ نطاق الطباعة كصورة Export Print Area As JPG Picture
تسلم أخي الغالي محمد الدسوقي ومشكور على مرورك العطر





28-08-2019 09:34 مساء
مشاهدة مشاركة منفردة [8]
khaled alborene
menu_open
عضو متميز
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 16
المشاركات : 741
الجنس : ذكر
تاريخ الميلاد : 9-9-1990
الدعوات : 2
يتابعهم : 10
يتابعونه : 8
قوة السمعة : 887
الاعجاب : 89
 Online 
look/images/icons/i1.gif حفظ نطاق الطباعة كصورة Export Print Area As JPG Picture
استاذي ياسر كود رائع وجميل 
ولكن انا بحاجة الى شرحه اذا سمحت 

أثارت هذه المشاركة إعجاب: YasserKhalil،




28-08-2019 09:53 مساء
مشاهدة مشاركة منفردة [9]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8122
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 428
قوة السمعة : 23621
الاعجاب : 2396
 Online 
look/images/icons/i1.gif حفظ نطاق الطباعة كصورة Export Print Area As JPG Picture
بارك الله فيك أخي الكريم خالد
الشرح لن يفيد بشكل كبير .. حاول دراسة الكود والاستفادة منه ، وحاول استخدام F8 لتنفيذ الكود سطر بسطر ولاحظ التغيرات بعد كل سطر لتعرف ماذا يفعل الكود ..هكذا تكون دراسة الكود أفضل





29-08-2019 12:00 صباحا
مشاهدة مشاركة منفردة [10]
أباالحسن
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 18
المشاركات : 297
الجنس : ذكر
تاريخ الميلاد : 7-7-1979
يتابعهم : 4
يتابعونه : 15
قوة السمعة : 597
الاعجاب : 39
 offline 
look/images/icons/i1.gif حفظ نطاق الطباعة كصورة Export Print Area As JPG Picture
جزاكم الله خيرا 
فكرة رائعة 

أثارت هذه المشاركة إعجاب: YasserKhalil،




29-08-2019 12:36 صباحا
مشاهدة مشاركة منفردة [11]
hassona229
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 118
الجنس : ذكر
تاريخ الميلاد : 1-1-1989
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 252
الاعجاب : 103
 offline 
look/images/icons/i1.gif حفظ نطاق الطباعة كصورة Export Print Area As JPG Picture
جزاكم الله خيرا وجعل الله هذا العمل في ميزان حسناتك يوم القيامه 
وفرت تصدير ملف العمل الى pdf
ومن ثم تحويله الى صورة
فجزاكم الله خيرا 

أثارت هذه المشاركة إعجاب: YasserKhalil،




29-08-2019 04:56 صباحا
مشاهدة مشاركة منفردة [12]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8122
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 428
قوة السمعة : 23621
الاعجاب : 2396
 Online 
look/images/icons/i1.gif حفظ نطاق الطباعة كصورة Export Print Area As JPG Picture
وجزيتم خيراً إخواني بمثل ما دعوتم لي وزيادة

نقطة تصدير الملف لـ PDFأيسر بكثير من هذا الكود ، حيث يمكن تصدير ورقة العمل بكل سهولة من خلال كود أبسط ويوجد موضوع بهذا الشأن على الرابط التالي
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب

أثارت هذه المشاركة إعجاب: hassona229،





المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
تحديد نطاق على الفورم للمعاينة والطباعة Preview Print Using RefEdit Control YasserKhalil
4 99 YasserKhalil
حذف كل النطاقات ما عدا نطاق الطباعة Delete All Except Print Area YasserKhalil
11 271 YasserKhalil
تحديد أخر عمود فى نطاق الطباعة أباالحسن
15 1865 YasserKhalil
طلب طريقة اخفاء صفوف الفارغة عند الطباعة من نطاق معين محمدعبدالسلام
6 1198 محمدعبدالسلام
مشكلة فى نطاق الطباعة أباالحسن
3 803 ناصر سعيد

الكلمات الدلالية
Picture ، Area ، Print ، Export ، كصورة ، الطباعة ، نطاق ،


 







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



الساعة الآن 08:37 مساء

أعلن هنا
أعلن هنا
أعلن هنا