أبو ردينة قام بنشر يوليو 4, 2012 قام بنشر يوليو 4, 2012 السلام عليكم و رحمة الله و بركاته الإخوة الأحباب أساتذة المنتدى المحترمين صادفت مشكلة في إدراج صورة قبل طباعة تحديد ضمن ورقة العمل و إعادة حذفها بعد الطباعة كما هو موضح بالمرفق رجاء التكرم بالإفادة عن التصحيح و إقتراح حلول أفضل إن وجد ( بما يساهم في تقليل حجم الملف و سرعة الأداء كونه أحد المهام ضمن برنامج أكبر إن شاء الله ) و لكم جزيل الشكر إدارج صورة.rar
أبو ردينة قام بنشر يوليو 5, 2012 الكاتب قام بنشر يوليو 5, 2012 قل للرفع و لا تقل أنتم فين يا جماعة ليه ما رديتم علي
بن علية حاجي قام بنشر يوليو 8, 2012 قام بنشر يوليو 8, 2012 (معدل) السلام عليكم ورحمة الله أخي الكريم، إن خطأ الكود في عدم إيجاد الصورة وارد جدا لأن عند كل إدراج لصورة في ملف يتغير اسم الصورة وفي الكود اسم الصورة ثابت "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 بواسطه بن علية حاجي
أبو ردينة قام بنشر يوليو 8, 2012 الكاتب قام بنشر يوليو 8, 2012 (معدل) و علبيكم السلام و رحمة الله و بركاته بارك الله فيك أخي الحبيب / بن علية حاجي - و نفع بعلمك نفذت ما تفضلت به مشكورا و أسمح لي بالأستفسار عن الآتي - تغيير سطر الكود الخاص بالصورة حل المشكلة غير أنه كما تفضلت يحدد كافة الصور بورقة العمل فهل من حل لتحديد الصورة المختارة فقط علما بأنه يتم تغيير رقم الصورة تلقائيا بعد كل تنفيذ للكود ؟ - تغيير سطر الطباعة يقوم بتحديد كامل ورقة العمل في حين أن المطلوب هو طباعة التحديد فقط قمت بالتغير في الكود في ضوء ما تقدم و أختصرته قدر المستطاع ثم أرفقت الكود بعد التعديل لطلب توجيهكم في حال وجود أي تعديل أو تنقيح أكرر شكري لأهتمامك بالرد و التوجيه جزاك الله خيرا إدارج صورة.rar تم تعديل يوليو 8, 2012 بواسطه أبو ردينة
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.