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

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


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


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

Preview




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

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



28-08-2019 06:53 صباحا
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 9004
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 22
يتابعهم : 0
يتابعونه : 460
قوة السمعة : 26683
الاعجاب : 676
 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


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

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


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



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

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





توقيع :الصقر

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


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




توقيع :Yasser Elaraby
663013020


28-08-2019 09:16 صباحا
مشاهدة مشاركة منفردة [3]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 9004
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 22
يتابعهم : 0
يتابعونه : 460
قوة السمعة : 26683
الاعجاب : 676
 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
المشاركات : 1288
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 59
يتابعهم : 6
يتابعونه : 240
قوة السمعة : 4322
الاعجاب : 6
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif حفظ نطاق الطباعة كصورة Export Print Area As JPG Picture
بارك الله فيك استاذ ياسر موضوع ولا اروع
 



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

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

28-08-2019 06:37 مساء
مشاهدة مشاركة منفردة [5]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 9004
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 22
يتابعهم : 0
يتابعونه : 460
قوة السمعة : 26683
الاعجاب : 676
 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
المشاركات : 734
الجنس : ذكر
تاريخ الميلاد : 14-10-1973
الدعوات : 69
يتابعهم : 9
يتابعونه : 668
قوة السمعة : 7735
الاعجاب : 39
 offline 
look/images/icons/i1.gif حفظ نطاق الطباعة كصورة Export Print Area As JPG Picture
2015_1418710703_134




28-08-2019 09:06 مساء
مشاهدة مشاركة منفردة [7]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 9004
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 22
يتابعهم : 0
يتابعونه : 460
قوة السمعة : 26683
الاعجاب : 676
 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
المشاركات : 778
الدولة : الاردن
الجنس : ذكر
تاريخ الميلاد : 9-9-1990
الدعوات : 2
يتابعهم : 10
يتابعونه : 10
قوة السمعة : 929
الاعجاب : 0
 offline 
look/images/icons/i1.gif حفظ نطاق الطباعة كصورة Export Print Area As JPG Picture
استاذي ياسر كود رائع وجميل 
ولكن انا بحاجة الى شرحه اذا سمحت 




28-08-2019 09:53 مساء
مشاهدة مشاركة منفردة [9]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 9004
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 22
يتابعهم : 0
يتابعونه : 460
قوة السمعة : 26683
الاعجاب : 676
 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
المشاركات : 306
الجنس : ذكر
تاريخ الميلاد : 7-7-1979
الدعوات : 1
يتابعهم : 4
يتابعونه : 17
قوة السمعة : 689
الاعجاب : 2
 offline 
look/images/icons/i1.gif حفظ نطاق الطباعة كصورة Export Print Area As JPG Picture
جزاكم الله خيرا 
فكرة رائعة 




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




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

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






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
حفظ نطاق الطباعة كصورة Export Print Area + Print title rows As Picture hassona229
35 860 hassona229
تحديد نطاق على الفورم للمعاينة والطباعة Preview Print Using RefEdit Control YasserKhalil
4 369 YasserKhalil
حذف كل النطاقات ما عدا نطاق الطباعة Delete All Except Print Area YasserKhalil
11 714 YasserKhalil
تحديد أخر عمود فى نطاق الطباعة أباالحسن
15 2423 YasserKhalil
طلب طريقة اخفاء صفوف الفارغة عند الطباعة من نطاق معين محمدعبدالسلام
6 1537 محمدعبدالسلام

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


 







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

الساعة الآن 01:05 صباحا

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