اذهب الي المحتوي
أوفيسنا

تشغيل باوربوينت من خلال زر في النموذج


zoed2

الردود الموصى بها

Private Sub Command0_Click()
Dim opj As Object
Dim strFilePath
strFilePath = CurrentProject.Path & "\Ch1.ppt"
Set opj = CreateObject("Powerpoint.Application")
    opj.Visible = True
    opj.Presentations.Open (strFilePath)
End Sub

Ch1.ppt  هو اسم ملف العرض  اجعله بجانب قاعدة البيانات

رابط هذا التعليق
شارك

مشاركة  بمعلومات إضافية مع الأستاذ أبو خليل

 

يمكن استخدام التالي وهو الافضل

FollowHyperlink CurrentProject.Path & "\Ch1.ppt": SendKeys "{F5}"

طبعا تغير المسار والملف حسب الحاجة وتم استخدام امر تشغيل العرض

 

 

اختصار فكرة أبو خليل

Set opj = CreateObject("Powerpoint.Application").Presentations.Open(CurrentProject.Path & "\Ch1.ppt"): Set obj = Nothing

ونلاحظ إضافة مسح الكائن من الذاكرة وهي مهمة

 

كما يمكن استخدام دالة shell   وتمرير مسار الملف

تحياتي

تم تعديل بواسطه رمهان
  • Like 1
رابط هذا التعليق
شارك

الاستاذ رمهان .. سعدت بمرورك واضافتك

وشكرا للتنبيه على افراغ الذاكرة

وحلوة تشغيل العرض هذه  :fff:

 

Dim opj As Object
Dim strFilePath
strFilePath = CurrentProject.Path & "\Ch1.ppt"
Set opj = CreateObject("Powerpoint.Application")
    opj.Visible = True
    opj.Presentations.Open (strFilePath): SendKeys "{F5}"
Set obj = Nothing
  • Like 2
رابط هذا التعليق
شارك

اعذروني يا شباب للمداخلة  :smile:

 

ولكني احب اتفادى Sendkeys  :eek2:

 

فايش رايكم بهذا الكود:

Dim opj As Object
Dim strFilePath
strFilePath = CurrentProject.Path & "\Ch1.ppt"
Set opj = CreateObject("Powerpoint.Application")
    opj.Visible = True
    opj.Presentations.Open (strFilePath) ': SendKeys "{F5}"
    opj.ActivePresentation.SlideShowSettings.Run
Set obj = Nothing

جعفر

تم تعديل بواسطه jjafferr
  • Like 1
رابط هذا التعليق
شارك

رايي ان هذا الموضوع اصبح مائدة

هذا مثال للاخ السائل يجمع بين الاكواد

فاختر من المائدة ما شئت

powrp.rar

تم تعديل بواسطه أبـوخليل
اضافة كود الاستاذ جعفر
  • Like 1
رابط هذا التعليق
شارك

اعذروني يا شباب للمداخلة  :smile:

 

ولكني احب اتفادى Sendkeys  :eek2:

 

فايش رايكم بهذا الكود:

Dim opj As Object
Dim strFilePath
strFilePath = CurrentProject.Path & "\Ch1.ppt"
Set opj = CreateObject("Powerpoint.Application")
    opj.Visible = True
    opj.Presentations.Open (strFilePath) ': SendKeys "{F5}"
    opj.ActivePresentation.SlideShowSettings.Run
Set obj = Nothing

جعفر

 

وهذا الكود لإيقاف العرض

opj.SlideShowWindows(1).View.Exit

جعفر

  • Like 1
رابط هذا التعليق
شارك

تفضل نسختي  :smile:

 

ولكن يجب تغيير اسم ملف power point في الكود.

 

وهذا الكود: لفتح العرض ، ايقافه ، واغلاقه

Option Compare Database
Dim opj As Object


Private Sub cmd_run_Click()


Dim strFilePath
strFilePath = CurrentProject.Path & "\30.Office_Exercises.ppt"
Set opj = CreateObject("Powerpoint.Application")
    opj.Visible = True
    opj.Presentations.Open (strFilePath) ': SendKeys "{F5}"
    opj.ActivePresentation.SlideShowSettings.Run
'Set opj = Nothing

End Sub

Private Sub cmd_stop_Click()

    opj.SlideShowWindows(1).View.Exit
End Sub


Private Sub cmd_exit_Click()

    opj.Quit
    Set opj = Nothing
End Sub

جعفر

30.Run_PowerPoint.mdb.zip

تم تعديل بواسطه jjafferr
  • Like 1
رابط هذا التعليق
شارك

  • 6 years later...

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information