dovresti scaricarti il visualizzatore di power97, poi una volta installato dovresti prenderti 3 file (necessari x avviare il ppt dalla tua cartella)

File da comprendere nella tua cartella (progetto VB):
1) PPVIEW32.EXE
2) Ppintlv.dll
3) Msppt8vr.olb

codice:
Dim xfile As String
xfile = App.Path & "1.ppt"
az = Shell(App.Path & "PPVIEW32.EXE " & xfile, vbNormalFocus)
End
End Sub
ricorda ke potresti ricevere errori , come file nn trovato, questo puo' dipendere dal perkorso, ovvio ke il mio esempio si adatta ad un file presente nella root (c: , d: , e: ecc..)
se lo devi mettere in un cartella cambia xfile in questo modo :
xfile = App.Path & "\1.ppt"



ps. stavo pensando ad altri modi forse con gli ole.