كيف يتم تحويل نطاق معين الى صورة محفوظة في مجلد معين

[محمد الورفلي1]

السلام عليكم

كيف يتم تحويل نطاق معين الى صورة محفوظة في مجلد معين

 

1.rar

[أ / محمد صالح]

ممكن تسجل ماكرو لنسخ نطاق ولصقه كصورة

ثم حفظ الصورة باسم وحفظها في المسار الذي تريد

ثم تعديل الكود

[محمد الورفلي1]

4 ساعات مضت, أ / محمد صالح said:

ممكن تسجل ماكرو لنسخ نطاق ولصقه كصورة

ثم حفظ الصورة باسم وحفظها في المسار الذي تريد

ثم تعديل الكود

 

 

 

ممكن مثال لو سمحت

 

[أ / محمد صالح]

كان مجرد اقتراح

ولكن بعد التجربة لم يفلح

وتم التوصل لهذا الكود

تفضل

export range to jpg.rar

[محمد الورفلي1]

السلام عليكم استاذ  محمد

  هل يمكن انشاء ملف علي سطح المكتب ويتم حفظ الصور فيه

تم تعديل مايو 18, 2017 بواسطه محمد الخازمي

[أ / محمد صالح]

أكيد ممكن

فقط يلزمك تعديل السطر الخاص بمسار التصدير

الذي به

Thisworkbook.path

وتعني مسار المصنف الحالي

غيرها لأي مسار ثابت تريده

[محمد الورفلي1]

جاري التجربة

تم تغيير المسار ولكن لم افلح

[محمد الورفلي1]

للرفع

[ياسر خليل أبو البراء]

أخي الكريم الخازمي

المسار يكون بالشكل التالي

"C:\Users\4\Desktop\saes\"

بدون مسافات مع وضع علامة : بعد رمز الدرايف

[محمد الورفلي1]

نقس المشكلة  استاذ خليل  حتى بدون مسافة

[أ / محمد صالح]

يوجد في نهاية المسار اسم الملف والامتداد

 & Fname & ".Jpg"

 

تم تعديل مايو 19, 2017 بواسطه أ / محمد صالح

[محمد الورفلي1]

السلام عليكم اصبحت الان عملية النسخ ممتازة

ولكن لم يتم فتح الملف المسمي  "saes" ولكن يضع الصورة علي سطح المكتب وانا اريدها داخل الملف

Set rng = Range("a1:e12")
saes = "mas"

Application.DisplayAlerts = 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 ("C:\Users\4\Desktop\saes" & saes & ".jpg")
    .Delete
End With

Application.DisplayAlerts = 1
MsgBox "ok"
End Sub

 

[أ / محمد صالح]

ينقص شرطة خلفية قبل اسم الملف

objChart.Export ("C:\Users\4\Desktop\saes\" & saes & ".jpg")

 

[محمد الورفلي1]

شكراً

بارك الله فيك

احستن استاذ محمد كود ممتاز خفيف + جميل جداً وسريع نجحت العملية

[محمد الورفلي1]

استاذ محمد

عند تحويل الملف الي اكسيل 2003

اعطاني هذا الخطاء

التقاط صورة2.rar

[محمد الورفلي1]

للرفع

 

[أ / محمد صالح]

لا يوجد أي مشكلة عندي بعد حفظ الملف بتنسيق ٩٧ - ٢٠٠٣

 

[محمد الورفلي1]

هل عمل معك الملف الذي  انزلته 2003

في المشاركة  قبل السابقة  بشكل جيد ام اعطى نفس الخطاء

[أ / محمد صالح]

لم اقم بتحميل الملف إلا الآن

وعمل بصورة جيدة ولا يوجد أي خطأ

لأن الكود متوافق مع 2003 وما بعدها

[ابوعبدالواجد]

السلام عليكم - جزيت خيرا

سؤال : اذا تم تصدير النطاق الى صورة - وعند القيام بالتغيير بالبيانات وتصدير النطاق مرة ثانية يتم الحفظ  والغاء الصورة التي قبلها  

فمثلا عندي فواتير :  فعند القيام بالتصدير اول مرة نجح الأمر

وعند استدعاء فاتورة اخرى والضغط على تصدير  النطاق - هنا تبدأ عندي المشكلة وهي

يتم التصدير والغاء الفاتورة التي قبلها

الافضل اعطاء رقم لتصدير النطاق فعند كل تصدير رقم جديد 

جزيت خيرا

تم تعديل مايو 20, 2017 بواسطه ابوعبدالواجد

[أ / محمد صالح]

بالتوفيق إن شاء الله

لهذا الغرض بالذات يحتوي الكود على اسم ملف الصورة في متغير fname

وأفضل حل برمجي يقوم به المحترفون لهذا الغرض هو تسمية الملف باسم الشيت ثم تاريخ ووقت التصدير

بالساعة والدقيقة والثانية

فيجب تغيير سطر اسم الملف

fname = ActiveSheet.Name & "." & Format(Now, "yyyymmdd.hhnnss")

جرب وأجبرني بالنتيجة

[محمد الورفلي1]

8 ساعات مضت, أ / محمد صالح said:

لم اقم بتحميل الملف إلا الآن

وعمل بصورة جيدة ولا يوجد أي خطأ

لأن الكود متوافق مع 2003 وما بعدها

  السلام عليكم

غريب جداً يا استاذ محمد الخطاء الذي ظهر عند بعد تحويل الملف في الصورة    ما يقصد بالخطاء هناء

[أ / محمد صالح]

ممكن رسالة الخطأ التي تظهر قبل الدخول لشاشة الكود تساعدنا

مثل هذه

تم تعديل مايو 21, 2017 بواسطه أ / محمد صالح

[ابوعبدالواجد]

السلام عليكم - حياك الله

لم يتغير التصدير (لم يعطي رقم الى الفاتورة المصدرة ) يتم التصدير فوق السابق

[أ / محمد صالح]

3 ساعات مضت, ابوعبدالواجد said:

السلام عليكم - حياك الله

لم يتغير التصدير (لم يعطي رقم الى الفاتورة المصدرة ) يتم التصدير فوق السابق

طالما أنه يتم التصدير فوق السابق

يبدو أنك لم تقم بتغيير سطر اسم الملف للسطر المذكور في المشاركة السابقة بهذا الخصوص

حيث أن الاسم يختلف كل ثانية

ولا أعتقد أنك تقوم بالتصدير مرتين في الثانية!!