Åbne PowerPoint præsentation

Hvad mener du med ... "via program."?

Du kan åbne filen med PowerPoint ...

Der findes også en gratis fremviser http://www.microsoft.com/downloads/details.aspx?FamilyID=7C404E8E-5513-46C4-AA4F-058A84A37DF1&displaylang=EN

Jeg laver et program hvor der ved klik på en knap skal åbnes en fil (Powerpoint præsentation ppt eller pps).

Dette kode kan åbne en allerede defineret ppt fil der ligger på disken.

Private Sub Command1_Click()
    Dim po As PowerPoint.Application
    Set po = New PowerPoint.Application
    Dim fr As PowerPoint.Presentation
   
    po.Visible = True
   
    Set fr = po.Presentations.Open("d:\test.ppt")
   
   
    Set po = Nothing
End Sub

Du skal blot sætte en reference til Microsoft PowerPoint Object Library

VH CK

aahh.. ok. Burde jeg kunne have gættet ved at se på kategorien :-=

Du kan også bruge shellexec - den vil så virke på alle filer, der er associeret til et program.

/JP

jpvj>>Nej Shell eller shellExec de starter programmet op, men der kan du ikke bestemme hvilken fil der skal vises.

VH CK

keddel65: Jo du kan da...

Ok - det vidste jeg ikke. Kan du så ikke lige berige mig med den info?

VH CK

Meget sjovt...

Jeg havde følgende, som ikke virkede:

Dim objPP As New PowerPoint.Application
Dim objDoc As PowerPoint.Presentation

        MousePointer = vbHourglass
       
        Set objDoc = objPP.Presentations.Open(App.Path & "\p.ppt")
       
        MousePointer = vbDefault

det kan man vidst kalde tæt på :-)
Men tak for hjælpen alligevel kedde65!

Vel desuden gerne se hvordan man kan åbne en fil som f.eks. doc eller ppt med Shell el. ShellExec....
Jeg er nemlig også ret sikker på at det ikke er muligt!

Se her:

  Shell "C:\Programmer\Microsoft Office\Office\excel.exe d:\test.xls"

:o)

Jeg bøjer mig i støvet og må jo erkende at jeg tog fejl :-) Dog vil jeg sige den, kode jeg gav den har mange andre fordele. Mne hvis det blot handler om at man skal åbne en power Point fil, så kan Shell bruges ser det ud til...

VH CK

Ja ja - min kommentar var også kun ment som en supplerende kommentar

:o)