اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


إذهب إلى أفضل إجابة Solved by أ / محمد صالح,

الردود الموصى بها

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

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

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

رابط هذا التعليق
شارك

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

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

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

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

 

 

 

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

 

رابط هذا التعليق
شارك

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

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

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

تفضل

export range to jpg.rar

  • Like 1
رابط هذا التعليق
شارك

أكيد ممكن

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

الذي به

Thisworkbook.path

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

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

رابط هذا التعليق
شارك

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

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

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

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

رابط هذا التعليق
شارك

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

 & Fname & ".Jpg"

 

تم تعديل بواسطه أ / محمد صالح
رابط هذا التعليق
شارك

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

ولكن لم يتم فتح الملف المسمي  "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")

 

  • Like 1
رابط هذا التعليق
شارك

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

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

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

رابط هذا التعليق
شارك

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

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

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

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

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

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

جزيت خيرا

تم تعديل بواسطه ابوعبدالواجد
رابط هذا التعليق
شارك

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

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

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

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

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

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

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

رابط هذا التعليق
شارك

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

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

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

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

  السلام عليكم

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

22.png

رابط هذا التعليق
شارك

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

مثل هذه

images.png.21684b1068483e93f2af4d7a7208264d.png

تم تعديل بواسطه أ / محمد صالح
رابط هذا التعليق
شارك

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

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

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

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

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

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

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

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information