Odpiranje PowerPointa s pomočjo makra iz Excela

[mb]

Pozdravljeni,

zanima me kakšna bi bila koda v Excelu, da odprem predstavitev v Power Pointu jo osvežim (povezave) in začnem s predstavitvijo!

Koda: Izberi vse

Presentations.Open Filename:="C:\Pot\Datoteka1\PREDSTAVITEV.ppt", ReadOnly:=msoFalse

Zgornji ukaz makra deluje v PP ne pa v Excelu od koder želim klicati predstavuitev jaz.

Prosim za pomoč.

LP

[GoldZ]

Pozdravljeni,

Za začetek vklopite Tools/References/Microsoft PowerPoint Object Library, da dobite objekte PP.

A kolikor se na hitro spomnim, to ne bo dovolj. Primerke objekta bo potrebno ročno ustvariti in ga prirediti vaši predstavitvi.

Koda: Izberi vse

Sub OdpriPowerPointizExcela()
   
 Dim PP As PowerPoint.Application
    Dim PPpredstavitev As PowerPoint.Presentation
  


    Set PP = CreateObject("Powerpoint.Application")
    PP.ShowWindowsInTaskbar = msoTrue
    PP.Visible = msoTrue
    
    
    Set PPpredstavitev = PP.Presentations.Open("c:\temp\test.ppt")
    
    'PP.Quit
    'Set PPpredstavitev = Nothing
    'Set PP = Nothing
End Sub

Je to to?

[mb]

Zadeva deluje. Hvala GoldZ!

Potrebujem samo še ukaza za avtomatsko osveževanje povezav v PP in za začetek predstavitve.

[kljuka13]

Koda: Izberi vse

PPpredstavitev.SlideShowSettings.Run
PPpredstavitev.UpdateLinks