Makro ile pps dosyası çalıştırma

[bmutlu966]

Arkadaşlar,

Makro kullanarak bilgisayarımın içersindeki bir prezantasyon dosyasını nasıl çalıştırabilirim.

shell komutu ile denedim olmadı. Sanırım bu komut sadece exe dosyaları çalıştırıyor.

 

[hamitcan]

Sub nn()
r = Shell("POWERPNT.exe ""C:\TEST.pps""", 1)
End Sub

şeklinde deneyin.

 

[bmutlu966]

Çok teşekkürler. PPS dosyasını powerpoint içersinde açıyor. dosyayı otomatik çalıştırmanın bir yolu varmı acaba.

 

[hamitcan]

Bir de bu şekilde dener misiniz ?

Sub PpsDosyasiAc()
'Referanslardan, Microsoft PowerPoint 12.0 Object Library referansını işaretleyin.
    Dim PPT As PowerPoint.Application
    Set PPT = New PowerPoint.Application
    PPT.Visible = True
    PPT.Presentations.Open Filename:="C:\TEST.pps"
End Sub

 

[levo26]

Birde aşağıdaki kodları deneyiniz.

Sub pps()
Dim dosya
dosya = Shell("c:\progra~1\micros~1\Office\powerpnt.exe c:\windows\desktop\1.pps", 1)
End Sub

 

[bmutlu966]

Arkadaşlar ilginiz için çok teşekkürler. Sorun çözüldü.

 

[xternet]

Sayın bmutlu966; ben de aynı konuyu incelemek için aranıyordum ki çok taze olan bu konu başlığınızı gördüm ve inceledim. Ancak ben henüz halledemedim. Sorunu nasıl çözdüğünüzden bahseder misiniz?

 

[bmutlu966]

Hamitcan arkadaşımızın kodları dosyayı çalıştırıyor.

 

[xternet]

Bir de bu şekilde dener misiniz ?

Sub PpsDosyasiAc()
'Referanslardan, Microsoft PowerPoint 12.0 Object Library referansını işaretleyin.

Burada bahsedilen mevzuyu çözemedim. Yani Referans meselesi. Sanırım onu halledderem bende sorunu çözücem.

 

[Levent Menteşoğlu]

Kısaca aşağıdaki kod ile her türlü dosyayı, açacak programın bilgisayarınızda yüklü olması kaydı ile açabilirsiniz.

CreateObject("Shell.Application").Open "C:\TEST.pps"

 

[xternet]

Sayın Levent; işte bu nokta atışı.
Teşekkürler. Zihninize sağlık.

 

[hamitcan]

Burada bahsedilen mevzuyu çözemedim. Yani Referans meselesi. Sanırım onu halledderem bende sorunu çözücem.

Resmi inceleyin.