نمایش پیغام آیا مایل به خارج شدن از برنامه Powerpoint هستید؟
سوال :
چه جوری میتونم کاری کنم که وقتی می خوام از پاورپوینت خارج شم پیام بده که آیا شما مایل به خارج شدن هستید یانه؟
پاسخ :
جهت ایجاد یک فایل PowerPoint که بصورت هوشمند از کاربر در موقع خارج شدن از برنامه سوال نماید باید کمی با کد نویسی VBA مخصوص برنامه های Office آشنا باشیم.
پس از باز کردن یک سند پاورپوینت آن را ابتدا به فرمت از طریق دکمه دایره ای آفیس و گزینه Save AS و سپس گزینه Other Format به فرمت :
Microsoft PowerPoint Macro-Enabled Presentation(*.pptm)
فایل را ذخیره نمائید تا قابلیت اجرای فایل های دارای کد ماکرو فعال گردد، و البته پیش از آن نیز باید از طریق منوی Devloper و تب Code گزینه Macro Security را زده و از قسمت Macro Setting گزینه Enable all macros (not recommended, potentially dangerous code can run) را فعال نمائید، تا اجازه اجرای کدهای ماکرو به نرم افزار داده شود
و حالا برای شروع کار از منوی Devloper و تب Contorols یکی شی به نام Command Button در یکی از اسلایدها که بهتر است در تمام اسلایدها و یا اسلاید آخر باشد را ترسیم کنید و از طریق گزینه Properties خصوصیات این شی را از قبیل Name و Caption را بترتیب BtnClose و "بستن" نامگذاری نمائید.
سپس با دوبار کلیک بر روی این شی به صفحه VBA که محل نوشتن کدهای VBA هست رفته و در صفحه باز شده کد های زیر را می نویسیم.
Private Sub BtnClose_Click()
Dim MsgResult As VbMsgBoxResult
MsgResult = MsgBox(" آیا شما مایل به خارج شدن هستید یانه؟", vbYesNo, "اطلاع")
If MsgResult = vbYes Then
Windows.Application.Quit
End If
End Sub
باز هم این فایل را با دکمه Save ذخیره نمائید و در انتها برای ذخیره فایل نمایشی از طریق دکمه دایره ای آفیس و گزینه Save AS و سپس گزینه Other Format به فرمت Microsoft PowerPoint Macro-Enabled Show(*.ppsm) فایل را ذخیره نمائید.
فایل ضمیمه را می توانید از اینجا دانلود نمائید
حال فایل شما دارای خصوصیت پرسش در موقع خارج شدن از برنامه می باشد
نظرات و پاسخ ها
Khalil ahmad نوشته :
سلام ببخشيد پسورد اين فايل نمونه چيست؟
مدیر سایت فارسی میتینگ در پاسخ به khalil ahmad نوشته :
تمامی فایل ها با رمز farsimeeting.com و یا www.farsimeeting.com قابل باز شدن هستند. تمامی حروف باید بصورت حروف کوچک تایپ شوند
مرتضی علی نژاد نوشته :
سلام و خسته نباشيد مي خواستم تو پاورپوينت ت صفحه نخست دو تا كادر درست كنم كه يكي نام كاربري و يكي يوزرنيم بعد براي هر كدوم يك مقدار خاص تعريف كنم با دكمه ورود هم وارد اسلايد بعدي بشم ت همه سايت ها هم هستش تو پاورپوينت هم ميشه اينطوري ساخت؟
شادی نوشته :
سلام بر شما و سپاس از پاسخگوییتون
منم یه سوال دارم اگه بخوام تو یکی از اسلاید هام چیزی شبیه search درست کنم که مثلا کلمه ای وارد بشه و با زدن دکمه search اسلاید مربوط به اون باز بشه باید چی کار کنم ؟
مثال: درون کادر کلمه x وارد شود با زدن دکمه search اسلاید 10 باز شود
درون کادر کلمه y وارد شود با زدن دکمه search اسلاید 11 باز شود و الی آخر
مدیر سایت فارسی میتینگ در پاسخ به شادی نوشته :
توسط برنامه نویسی در بخش VBA می توانید این دستورات را اجرا کنید، کدهای مربوط به نحوه نوشتن این اسکریپت ها در سایت های آموزش VBA موجود هست.
ترمه نوشته :
عالی بود
بهمن نوشته :
کاش اینجا بودین تا جواب بدین. خیلی ممنون میشم . پاور کار کردم باز میکرد اولش ولی الان میزنم خطا میده.خطایif you trust the surce ofte presentation.clik repair. repairaam میزنم اما نشون نمیده.لطفا کمک کنین
مدیر سایت فارسی میتینگ در پاسخ به بهمن نوشته :
باید تیک Enable protected view for files originating from the internet از قسمت Trust Center در Option را برداری اگر نشد فایلت را برام ارسال کن تا بررسی کنم
صفحه 1 از 1
مطالب مرتبط
چگونه یک سلول را به لیست combobox در اکسل تبدیل کنم؟ convert cell to combobox in excel تبدیل سلول به لیست کشویی در اکسل DropDown combobox اکسل آموزش اکسل پاسخ به سوالات اکسل ایجاد گزینه در اکسل
2013, Saturday, 17, Aug
میخواهم windows راعوض کنم درهمان مراحل اولیه(windows is loading file) گیرمیکندوهیچ کاری انجام نمیدهدسی دی هم پس از15ثانیه ازگردش می ایستدوچراغ درایورهم خاموش میشود
2012, Thursday, 25, Oct
نحوه ذخیره فایل صوتی در پاور پوینت بصورت مستقل ذخیره صدا در پاور پوینت powerpoint ساخت اسلاید شو صدای پیش زمینه ذخیره فایل صوتی بدون مسیر فایل صوتی نرم افزار پاور پوینت Sound Options Media Clips
2012, Monday, 13, Aug
چطوری دراکسس اختلاف دو تا ساعت را بدست بیاوریم؟ محاسبه اختلاف ساعت در اکسس amoozesh mohasebeh ekhtelaf saat dar access بدست آوردن اختلاف ساعت و تاریخ
2015, Thursday, 18, Jun
من ویندوز xp داشتم که به ویندوز 7 تغییر دادم و از اون به بعد پرینترم کار نمی کنه در صورتی که دستگاه پرینتر رو چک کردم و سالم هست Windows 7 ویندوز XP ویندوز Seven درایور پرینتر نصب درایور
2013, Tuesday, 21, May
