Odpiranje PowerPointa s pomočjo makra iz Excela

Pomoč pri izdelavi makrov
Odgovori
mb
Prispevkov: 57
Pridružen: Sr Okt 26, 2005 7:40 pm

Odpiranje PowerPointa s pomočjo makra iz Excela

Odgovor Napisal/-a 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
Prispevkov: 137
Pridružen: Če Sep 01, 2005 10:20 am

Odgovor Napisal/-a 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?
Življenje je enostavno, če poznaš "The Secret".
GoldZ
mb
Prispevkov: 57
Pridružen: Sr Okt 26, 2005 7:40 pm

Odgovor Napisal/-a mb »

Zadeva deluje. Hvala GoldZ!

Potrebujem samo še ukaza za avtomatsko osveževanje povezav v PP in za začetek predstavitve.
kljuka13
Prispevkov: 257
Pridružen: Po Sep 10, 2007 4:29 pm
Kraj: Maribor

Odgovor Napisal/-a kljuka13 »

Koda: Izberi vse

PPpredstavitev.SlideShowSettings.Run
PPpredstavitev.UpdateLinks
[img]http://shrani.si/f/3t/YL/4W2P37B9/office.gif[/img]
[img]http://shrani.si/f/12/aa/1rt1wj6i/1/userbardionaea.gif[/img]
[img]http://shrani.si/f/3D/nN/3RQySBCl/vista-copy.gif[/img]
Odgovori