اذهب الي المحتوي
أوفيسنا
ابوعلي الحبيب

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

Recommended Posts

 

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

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

  

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

تم تعديل بواسطه ابوعلي الحبيب

شارك هذه المشاركه


رابط المشاركه
شارك

اشكرك استاذي 

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

         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

 

 

 


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


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

ولك الشكر

 

 

 

تم تعديل بواسطه ابوعلي الحبيب

شارك هذه المشاركه


رابط المشاركه
شارك

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

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


ولك الشكر 

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

 

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

شارك هذه المشاركه


رابط المشاركه
شارك

السلام عليكم

عدل هذا السطر

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

 

  • Thanks 1

شارك هذه المشاركه


رابط المشاركه
شارك

تفضل 

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

 

  • Thanks 1

شارك هذه المشاركه


رابط المشاركه
شارك


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

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

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

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

شارك هذه المشاركه


رابط المشاركه
شارك

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

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

 

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

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

بارك الله فيك

شارك هذه المشاركه


رابط المشاركه
شارك

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

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

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

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

فقط ازلة PtrSafe

 

 

شارك هذه المشاركه


رابط المشاركه
شارك

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

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

شارك هذه المشاركه


رابط المشاركه
شارك

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

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

 

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

  • Like 1

شارك هذه المشاركه


رابط المشاركه
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.


  • المتواجدين الان   0 اعضاء متواجدين الان

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

×
×
  • اضف...