طلب كود إدراج صورة قبل الطباعة و حذفها بعد الطباعة

[أبو ردينة]

السلام عليكم و رحمة الله و بركاته

الإخوة الأحباب أساتذة المنتدى المحترمين

صادفت مشكلة في إدراج صورة قبل طباعة تحديد ضمن ورقة العمل و إعادة حذفها بعد الطباعة كما هو موضح بالمرفق

رجاء التكرم بالإفادة عن التصحيح و إقتراح حلول أفضل إن وجد ( بما يساهم في تقليل حجم الملف و سرعة الأداء كونه أحد المهام ضمن برنامج أكبر إن شاء الله )

و لكم جزيل الشكر

إدارج صورة.rar

[أبو ردينة]

قل

للرفع

و لا تقل

أنتم فين يا جماعة ليه ما رديتم علي

[أبو ردينة]

:jump:

للرفع بالرسم

[بن علية حاجي]

السلام عليكم ورحمة الله

أخي الكريم، إن خطأ الكود في عدم إيجاد الصورة وارد جدا لأن عند كل إدراج لصورة في ملف يتغير اسم الصورة وفي الكود اسم الصورة ثابت "Picture 23" وهذا سبب الخطأ... وأقترح تغيير السطر التالي في الكود:

ActiveSheet.Shapes.Range(Array("Picture 23")).Select

بالسطر (مع الحذر أنه يقوم بتحديد كل الصور والمربعات)

ActiveSheet.DrawingObjects.Select

والخلل في بطء تنفيذ الكود راجع (حسب رأيي) إلى أمر الطباعة ذاته المتمثل في السطر :

Selection.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False

ولما استبدل بالأمر :

    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

كان تنفيذ الكود أسرع...

والله أعلى وأعلم

تم تعديل يوليو 8, 2012 بواسطه بن علية حاجي

[أبو ردينة]

و علبيكم السلام و رحمة الله و بركاته

بارك الله فيك أخي الحبيب / بن علية حاجي - و نفع بعلمك

نفذت ما تفضلت به مشكورا و أسمح لي بالأستفسار عن الآتي

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

- تغيير سطر الطباعة يقوم بتحديد كامل ورقة العمل في حين أن المطلوب هو طباعة التحديد فقط

قمت بالتغير في الكود في ضوء ما تقدم و أختصرته قدر المستطاع ثم أرفقت الكود بعد التعديل لطلب توجيهكم في حال وجود أي تعديل أو تنقيح

أكرر شكري لأهتمامك بالرد و التوجيه

جزاك الله خيرا

إدارج صورة.rar

تم تعديل يوليو 8, 2012 بواسطه أبو ردينة