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

[ازهر عبد العزيز]

السلام عليكم 

في النموذج fpic يوجد مربع صورة يحتوي نص احتاج عند الضغط على الزر الموجود يتم اخذ صورة لهذا المربع وحفظها في المجلد screen الموجود بجانب قاعدة البيانات 

picutre.rar

[kanory]

18 ساعات مضت, ازهر عبد العزيز said:

السلام عليكم 

في النموذج fpic يوجد مربع صورة يحتوي نص احتاج عند الضغط على الزر الموجود يتم اخذ صورة لهذا المربع وحفظها في المجلد screen الموجود بجانب قاعدة البيانات 

وعليكم السلام .... هل تريد حفظ مربع النص المكتوب فيه بسم الله الرحمن الرحيم .... اذا كان نعم باي اسم تريد حفظه ؟؟؟
 

[ازهر عبد العزيز]

2 ساعات مضت, kanory said:

هل تريد حفظ مربع النص المكتوب فيه بسم الله الرحمن الرحيم .... اذا كان نعم باي اسم تريد حفظه ؟؟؟

اهلا استاذني العزيز @kanory  نعم استاذي هذا هو طلبي اذا امكن يحفظ باي اسم يكتب بالحقل الموجود فوق الصورة 

 

[kanory]

3 ساعات مضت, ازهر عبد العزيز said:

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

 

بداية يجب تفعيل هذه المكتبات لديك .....

 

KAN-picutre.rar

[ابوخليل]

حاجة جميلة .. عائلة ميكروسوفت يساعدوا بعض 😊

لزوم نضبط العنوان بما يتناسب مع هذا الابداع

[Moosak]

شرح الكود من العم أبو ذكاء 😁🖐:
 

هذا الكود هو جزء من تطبيق يستخدم لغة VBA (Visual Basic for Applications) لإنشاء شريحة جديدة في برنامج PowerPoint والتقاط صورة منها. إليك شرحًا لوظيفة كل جزء من الكود:

### وظيفة الكود:

1. **إعداد المتغيرات**:
   - يتم تعريف مجموعة من المتغيرات (مثل `PptApp`, `PptDoc`, `Diapo`, `Sh`, `Sh1`) للتعامل مع كائنات PowerPoint.

2. **إنشاء تطبيق PowerPoint جديد**:
   - يتم إنشاء مثيل جديد من PowerPoint وفتح عرض تقديمي جديد.

3. **إضافة شريحة جديدة**:
   - يتم إضافة شريحة جديدة إلى العرض التقديمي وتعيين تخطيطها إلى فارغ (`ppLayoutBlank`).

4. **إضافة شكل مستطيل**:
   - يتم إضافة شكل مستطيل إلى الشريحة ليكون خلفية بيضاء.

5. **إضافة نص**:
   - يتم إضافة تسميات نصية إلى الشريحة، مع تحديد النص ولون الخط وحجمه. النص يتم الحصول عليه من خاصية `Me.note`، وإذا كان فارغًا يتم استخدام القيمة الافتراضية "kanory".

6. **توسيع الشكل ليناسب النص**:
   - يتم ضبط حجم الشكل تلقائيًا ليناسب النص المضاف.

7. **توسيع الشكل في وسط الشريحة**:
   - يتم تحديد موقع الشكل ليكون في وسط الشريحة.

8. **حفظ الشريحة كصورة**:
   - يتم حفظ الشريحة كصورة بتنسيق JPG في مجلد معين.

9. **إغلاق PowerPoint**:
   - بعد حفظ الصورة، يتم إغلاق العرض التقديمي وتطبيق PowerPoint.

10. **نسخ الصورة**:
    - يتم التحقق مما إذا كانت الصورة قد تم حفظها بنجاح. إذا كان هناك ملف صورة، يتم نسخه إلى موقع آخر مع اسم محدد. بعد ذلك، يتم حذف النسخة الأصلية.

### ملخص:
الكود يقوم بإنشاء شريحة في PowerPoint، يضيف إليها نصًا وشكلًا، ثم يقوم بحفظ الشريحة كصورة JPG في مجلد محدد. في النهاية، ينسخ الصورة إلى اسم جديد (إذا لزم الأمر) ويحذف النسخة الأصلية.