تعديل الكود ليتم حفظ الصورة باسم الخلية مع تاريخ اليوم

[ابوعلي الحبيب]

 

الاساتذه الكرام
ارجو المساعدة بالتعديل على الكود
لكي يتم حفظ الصوة باسم الخلية مع تاريخ اليوم 
ولكم جزيل الشكر

مرفق الملف فيه الكود

  

حفظ صورة ياسم خلية.xlsb

تم تعديل أكتوبر 13, 2019 بواسطه ابوعلي الحبيب

[Ali Mohamed Ali]

جرب الكود الموجود بهذا الرابط من أعمال أستاذنا الكبير ياسر خليل ابو البراء

https://pastebin.com/DdEr76jc

[ابوعلي الحبيب]

اشكرك استاذي 

لدي كود قصي يحفظ بي دي اف 
 

         Range("A2:A17").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    ThisWorkbook.Path & "\" & " " & Range("A1").Value _
    & " " & Format(Now, "dd-mm-yyyy"), Quality _
    :=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False _
    , OpenAfterPublish:=True
If a = vbNo Then End
Application.ScreenUpdating = False

 

 

 

هل فيه امكانية  التعديل على هذا الكود بحيث يكون قصير ويحفظ الصورة بالتاريح لانه ضمن كود طويل 


ملاحظة مهمه يوجد كود صيغة الصور بالملف ثابت 
ل 

ولك الشكر

 

 

 

تم تعديل أكتوبر 14, 2019 بواسطه ابوعلي الحبيب

[ابوعلي الحبيب]

 
وسوف ارفق صورة والملف من جديد

المطلوب يكون اسم الصورة من خلية G1 مع التاريخ 

ولك الشكر 

جرب استاذي فك ظغط الملف في مجلد
وبعد فتح الملف وظغط ع الكود
تجد الصوره بنفس المجلد ولكن تحمل رقم 1 
 

حفظ صورة ياسم خلية.rar حفظ صورة ياسم خلية.xlsb

[الـعيدروس]

السلام عليكم

عدل هذا السطر

P = ActiveWorkbook.Path & "\" & [G1] & MyCount & ".JPEG"

 

[ابوعلي الحبيب]

استاذي الـعيدروس

 

ماشاء الله تبارك الله  عليك

 

باقي يضيف تاريخ اليوم

[الـعيدروس]

تفضل 

P = ActiveWorkbook.Path & "\" & Format(Now(), "yyyy-mm-dd") & [G1] & MyCount & ".JPEG"

 

[ابوعلي الحبيب]

الأستاذ الفاضل  /  الـعيدروس

ماشاء الله تبارك الله عليك
بالفعل هذا هو المطلوب 

كل الشكر والتقدير لك

ولجميع من ساعدني في 
هذا المنتدى الرائع
جزاكم الله خير  

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

أخي الحبيب العيدروس

كيف هي أحوالك؟

 

هل جربت الكود المرفق في ملف الأخ أبو علي .. وهل يقوم بالفعل بالتصدير للنطاق كصورة؟ لأنني جربته ولا يعمل لدي .. فأريد أن أعرف المشكلة من عندي أم من الكود نفسه ..

وأعتقد أنك اطلعت على الكود الذي قدمته فيرجى تجربته أيضاً وموافاتي بالنتيجة

بارك الله فيك

[الـعيدروس]

مرحبا اخي ياسر خليل

الحمد لله نسأل عنكم 

لم اطلع على مشاركة ابو علي الاولى لسى

اطلعت حاليا عليه الكود يعمل بكفاءه

فقط ازلة PtrSafe

 

 

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

كلمة PtrSafe تخص التعامل مع الـ 64 بت .. 

ممكن ترفق لي الملف الذي يعمل معك ..والصورة التي تم تصديرها؟

[الـعيدروس]

نفس الملف لاول مشاركة اخي ياسر

وهذه المرفقات الصورة التي تصدرت معي والملف

 

حفظ صورة ياسم خلية.xlsb

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

بارك الله فيك أخي العيدروس .. ومشكور على اهتمامك

تقبل تحياتي