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

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
مالك ماريه Eslam Abdullah-- لا تميز خلال هذه الفترة YasserKhalil مع أكاديمية الصقر اخفي أكوادك وعيش حياتك EvilClippy VBA Project Unviewable Protection اكسيل اسئله واجابات


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



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





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

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



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

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

أقدم لكم كود يقوم بتصدير نطاق الطباعة 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
المشاركات : 1711
الجنس : ذكر
الدعوات : 16
يتابعهم : 0
يتابعونه : 573
قوة السمعة : 17638
الاعجاب : 326
موقعي : زيارة موقعي
 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
المشاركات : 1194
الجنس : ذكر
الدعوات : 13
مشاركات مكتبة الميديا: 25
يتابعهم : 2
يتابعونه : 600
قوة السمعة : 8654
الاعجاب : 464
موقعي : زيارة موقعي
 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
المشاركات : 7255
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20806
الاعجاب : 1454
 offline 
look/images/icons/i1.gif حفظ نطاق الطباعة كصورة Export Print Area As JPG Picture
أخي الحبيب حسام
أخي الحبيب ياسر العربي
مشكور على مروركما العطر والمشرف بالموضوع .. بارك الله فيكما ودمتما في حفظ الله

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




28-08-2019 05:03 مساء
مشاهدة مشاركة منفردة [4]
محمود ابو الدهب
menu_open
مشرف على لغات برمجة والاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 1238
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 59
يتابعهم : 6
يتابعونه : 212
قوة السمعة : 4092
الاعجاب : 476
موقعي : زيارة موقعي
 Online 
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
المشاركات : 7255
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20806
الاعجاب : 1454
 offline 
look/images/icons/i1.gif حفظ نطاق الطباعة كصورة Export Print Area As JPG Picture
الأروع هو مرورك أخي الحبيب محمود .. بارك الله فيك

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




28-08-2019 08:37 مساء
مشاهدة مشاركة منفردة [6]
محمد الدسوقى
menu_open
خبير
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 47
المشاركات : 639
الجنس : ذكر
تاريخ الميلاد : 14-10-1973
الدعوات : 55
يتابعهم : 9
يتابعونه : 534
قوة السمعة : 6873
الاعجاب : 246
 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
المشاركات : 7255
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20806
الاعجاب : 1454
 offline 
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
المشاركات : 707
الجنس : ذكر
تاريخ الميلاد : 9-9-1990
الدعوات : 2
يتابعهم : 10
يتابعونه : 8
قوة السمعة : 845
الاعجاب : 68
 offline 
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
المشاركات : 7255
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20806
الاعجاب : 1454
 offline 
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
المشاركات : 286
الجنس : ذكر
تاريخ الميلاد : 7-7-1979
يتابعهم : 4
يتابعونه : 12
قوة السمعة : 547
الاعجاب : 20
 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
المشاركات : 67
الجنس : ذكر
تاريخ الميلاد : 1-1-1989
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 112
الاعجاب : 45
 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
المشاركات : 7255
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20806
الاعجاب : 1454
 offline 
look/images/icons/i1.gif حفظ نطاق الطباعة كصورة Export Print Area As JPG Picture
وجزيتم خيراً إخواني بمثل ما دعوتم لي وزيادة

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






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
حذف كل النطاقات ما عدا نطاق الطباعة Delete All Except Print Area YasserKhalil
11 134 YasserKhalil
تحديد أخر عمود فى نطاق الطباعة أباالحسن
15 1768 YasserKhalil
طلب طريقة اخفاء صفوف الفارغة عند الطباعة من نطاق معين محمدعبدالسلام
6 1115 محمدعبدالسلام
مشكلة فى نطاق الطباعة أباالحسن
3 700 ناصر سعيد

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


 







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



الساعة الآن 03:30 صباحا

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