na also !
habe es gefunden, wenn man trickst gehts immer !
'Powerpoint Starten (vbHide) also versteckt
holder = Shell(varPathOffice & "\Powerpnt.exe", vbHide)
'Jetzt Objekt erstellen
Set pptobj = CreateObject("PowerPoint.Application")
'Hier nur noch die Präsentation angeben und da PowerPnt auf vbHide is wird die
'Präsentation nicht in der leiste angezeigt aber ist als ActiveDocumet ansprechbar
Set Present = pptobj.Presentations.Open("Test.ppt")
'Hier Setze ich ViewType auf ppViewNormal damit ich sicher bin das ich was einfügen
'kann. (in der Handzetel ansicht kommt immer die meldung das PPT in View or Notes
'sein muß um was einzufügen
pptobj.ActiveWindow.ViewType = ppViewNormal
Hoffe das wird anderen auch weiterhelfen
regard
Crni
www.crni.de
geschrieben von
Crni
,
14.06.2005, 13:04 Uhr
, 34 mal gelesen