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

[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  هو اسم ملف العرض  اجعله بجانب قاعدة البيانات

[zoed2]

كل الشكر اخي ابو خليل على المجهود الكبير 

ممكن اطبق الكود على النموذج 

مع اضافة زر لايقاف العرض 

مع كل الود 

باور.rar

[رمهان]

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

 

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

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

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

 

 

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

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

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

 

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

تحياتي

تم تعديل مارس 15, 2015 بواسطه رمهان

[ابوخليل]

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

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

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

 

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

[zoed2]

السلام عليكم الاخوة العزاء ممكن مثال على ذلك ولكم كل الود

انا جديد على الاكسس

[jjafferr]

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

 

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

 

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

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

جعفر

تم تعديل مارس 15, 2015 بواسطه jjafferr

[ابوخليل]

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

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

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

powrp.rar

تم تعديل مارس 15, 2015 بواسطه أبـوخليل
اضافة كود الاستاذ جعفر

[jjafferr]

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

 

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

 

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

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

جعفر

[zoed2]

شكرا اخي العزيز اذا تكرمت ممكن كود يغلق الباوربوينت بعد انتهاء العرض مباشرة

[jjafferr]

تفضل نسختي 

 

ولكن يجب تغيير اسم ملف 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

تم تعديل مارس 15, 2015 بواسطه jjafferr

[zoed2]

شكرا والف ممنون منكم جميعا 

هذا هو المطلوب 

[salim1978]

هل يمكن تحديد نوع اللف من خلال النموذج بعد تحديد مسار الملف  مثلاً بدل ch1.ppt يختار اسم الملف من خلال النموذج

strFilePath = CurrentProject.Path & "\Ch1.ppt"

[abdulmajid]

قاعدة بيانات  اخرى برقم سري كيف يكون التعديل على الكود