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