قبل كم يوم كان للأخ Accessna فكرة رائعة لتحجيم النص وكانت تتطلب ملف اكسل
والحمد لله أستطعت أن اجعل البرنامج يعمل بدون ملف اكسل وصار اسرع بالتنفيذ ايضاً
دعواتكم
فكرة Accessna في تحجيم الحقل
مغلق
يوجد مشكلة في البرنامج أن لايغلق الاكسل ويطالب بالحفظ عند إغلاق الحاسب وتم حلها الحمد لله
من سار على الدرب وصل
بارك الله فيك أخ مفرج
الفكرة ممتازة .. والحقيقة كانت واحدة من الأمور التي كنت أفكر في تطويرها ولكن عندما لم ألقى التجاوب مع المثال ألغيت فكرة التطوير
طبعا لم أنزل المثال بعد تعديلك الأخير وكنت لاحظت أنك حذفت سطر إغلاق الملف .
xlApp.Close acSaveNo
من الأمور التي أقترحها هي :
- فصل عملية فتح الملف وغلقه عن كود التحجيم بحيث يكون فتح الملف مع بداية فتح المشروع أو النموذج وغلقه مع نهاية المشروع أو النموذج
- تعديل معادالة التحويل لتضرب في 20 بدل 19 حيث أن :
1 Point = 20 twips
ولتحويل الناتج إلى سينتمتر نقسمه على 567 حيث أن :
1 centemeter = 567 twips
- إزالة هذا السطر حيث لا حاجة له :
.ColorIndex = Crl.ForeColor
تم تعديل هذه المشاركة بواسطة Accessna في 26 يوليو 2007 في 14:17
بسم الله الرحمن الرحيم
بارك الله فيكم اخواني
بارك الله فيك
جزاك الله خيرا
لإقفال الأكسل بالطريقة التي استعملتها
xlBook.Close SaveChanges:=False xlApp.Quit
رائع جزاك الله خيرا ورحم والديك
استخدمت طريقتك سابقا ولم تفلح معي لإني لا استخدم xlApp.Quit
ثم استخدم هذا الكود وماشي معي لكن طريقتك أفضل
'SendKeys "{Tab}" + "{Enter}": xlBook.Close
من سار على الدرب وصل
هذا الموضوع مغلق.