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

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


إذهب إلى أفضل إجابة Solved by الـعيدروس,

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

 

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

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

  

حفظ صورة ياسم خلية.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

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


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

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

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

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

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

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

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

 

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

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

بارك الله فيك

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

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

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

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

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

فقط ازلة PtrSafe

 

 

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

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

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

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

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 اعضاء متواجدين الان

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

Important Information