Pogram çağırma

[mesudiye_052]

Selamlar,

Masaüstünde bir pps slayt dosyasını butona tıklayarak açmak için
hangi koda ihtiyaç vardır


Saygılar

 

[hamitcan]

Sub LaunchPPT()
    Dim ppt As Object
    Set ppt = CreateObject("PowerPoint.Application")
    ppt.Visible = True
    ppt.Presentations.Open "C:\deneme.pps"
    Set ppt = Nothing
End Sub

Kaynak:http://www.xtremevbtalk.com/showthread.php?t=115399

 

[mesudiye_052]

Selam;

Sayın Hamitcan

çok teşekkür ederim