Soru Excel den powerpoint sunumu açmak

[huseyinak]

Değerli arkadaşlarım,
Excel 2013 den vba kodu ile powerpoint sunumu açmak istiyorum.
Bu konuda destek istiyorum.

 

[Cengiz Demir]

Böyle bir kod buldum. Umarım işinizi görür. Dosya adını ve yolunu kendi dosyanıza göre değiştirmelisiniz..

Sub ppt()
Dim PPTApp As Object
Dim PPTPres As Object
Set PPTApp = CreateObject("PowerPoint.Application")
PPTApp.Visible = True
Set PPTPres = PPTApp.Presentations.Open("C:\Users\Bilgisayar\Desktop\Deneme.pptx")

End Sub

 

[baydeniro]

Böyle bir kod buldum. Umarım işinizi görür. Dosya adını ve yolunu kendi dosyanıza göre değiştirmelisiniz..

Sub ppt()
Dim PPTApp As Object
Dim PPTPres As Object
Set PPTApp = CreateObject("PowerPoint.Application")
PPTApp.Visible = True
Set PPTPres = PPTApp.Presentations.Open("C:\Users\Bilgisayar\Desktop\Deneme.pptx")

End Sub

kod için teşekkürler cengizdemir72