كود لاغلاق برنامج البور بوينت مع الحفظ

[قنديل الصياد]

الكود

Private Sub CommandButton1_Click()
ActivePresentation.Save
ActivePresentation.Close
End Sub

ملف به التطبيق

 

 

Presentation1.rar

[fms]

شكرا لك على الفكرة الرائعة لكن حاولت اطبقها وما عرفت ياليت توضح لي الخطوات بالتفصيل مع الشكر مقدماً

[قنديل الصياد]

اخى العزيز اليك شرح فيديو من على جهازى لكيفة عمل الكود ومرفق الكود ايضا

 

 

 

 

 

 

 

كود اغلاق.txt

 

 

[fms]

مشكور جدا على سرعة تفاعلك يا أستاذ 

وحاولت أن أطبقه بالماكرو لأن البوربوينت لدي هو 2007 و يختلف عن نافذة جهازك وضبط لما يكون عندي شريحتين لكن عندما طبقته على عرضي مكون من 24 شريحة وقد أوقفت حركة الماوس سابقاً فلم يضبط معي لأنه يعيدني لشريحة البداية. 

[fms]

لقد ضبط أخيراً مع جزيل الشكر لهذا الكود الرائع

[حمادة عمر]

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

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

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

[قنديل الصياد]

[medo 12]

بجد شكرا على الفائدة

http://www.fedv.bu.edu.eg/