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

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


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

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

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

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

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

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

إدارج صورة.rar

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

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

أخي الكريم، إن خطأ الكود في عدم إيجاد الصورة وارد جدا لأن عند كل إدراج لصورة في ملف يتغير اسم الصورة وفي الكود اسم الصورة ثابت "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


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

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

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

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

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

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

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

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

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

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

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

إدارج صورة.rar

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

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