Raise Number:=vb Object Error ERR_VERSION_NOT_SUPPORTED, _ Description:="Newer version." Exit Property End Select If h Wnd = 0 Then ' window was not found... Raise Number:=vb Object Error ERR_NO_WINDOW_HANDLE, _ Description:="Unable to get the Power Point Window handle" Exit Property End If 'Attempt to lock the window If Lock Window Update(h Wnd) = 0 Then ' attempt failed... Raise Number:=vb Object Error ERR_WINDOW_LOCK_FAIL, _ Description:="Unable to set a Power Point window lock" Exit Property End If Else 'State = True 'Unlock the Window to refresh Lock Window Update (0&) Update Window (h Wnd) h Wnd = 0 End If End Property Thanks, I was actually able to figure out this myself once I saw that the class was named "Class1" by default and not Screen Updating.

However, I still can't get it to work and when reviewing the code I can't see what should invoke the lockwindowcommand?

Die Rechenleistung fr die Anzeige fr die verarbeitung frei bleibt.

Damit fallen Pausen im Programmablauf weg, wesswegen das Programm in inem Stck und damit in krzerer Zeit durchluft. Du kannst deine Beitrge in diesem Forum nicht bearbeiten.

At the moment, creating 130 graphs takes 290 seconds, of which 286 are used by powerpoint. While I can alt-tab and keep powerpoint in the background, when switching to Powerpoint all the changes are being shown and you can basically see how it slows down the program. Should it be in a class module, should I do anything else or what am I doing wrong?

I suspect a major reason for this is not being able to turn off screenupdating for powerpoint. Below is the code-snippet I have borrowed and an example of how I try to call it: Option Explicit ' User Defined Error codes Const ERR_NO_WINDOW_HANDLE As Long = 1000 Const ERR_WINDOW_LOCK_FAIL As Long = 1001 Const ERR_VERSION_NOT_SUPPORTED As Long = 1002 ' API declarations for Find Window() & Lock Window Update() ' Use Find Window API to locate the Power Point handle.

Hi Leute, Wei jemand von euch wie ich im Power Point das Screenupdating untebinden kann? Screen Updating = False Finde diese mglichkeit aber in Power Point nicht. Mf G Marco Declare Function Find Window Lib "user32" Alias "Find Window A" (By Val lp Class Name As String, By Val lp Window Name As Long) As Long Declare Function Lock Window Update Lib "user32" (By Val hwnd Lock As Long) As Long Declare Function Update Window Lib "user32" (By Val hwnd As Long) As Long Property Let Screen Updating(State As Boolean) Static hwnd As Long Dim Version No As String If State = False Then Version No = Left(Application. Version, ".") - 1) Select Case Version No Case "8" ' For PPT97: hwnd = Find Window("PP97Frame Class", 0&) Case "9" ' For PPT2K: hwnd = Find Window("PP9Frame Class", 0&) Case "10" ' For XP: hwnd = Find Window("PP10Frame Class", 0&) Case "11" ' For 2003: hwnd = Find Window("PP11Frame Class", 0&) Case Else Err.

Raise Number:=vb Object Error ERR_VERSION_NOT_SUPPORTED, _ Description:="Supported for Power Point 97/2000/2002/2003 only." Exit Property End Select If hwnd = 0 Then Err.

It just checks what version it is and that no error codes are thrown should the lockcommand be used.

However, it never seems to actually call this function?

Bsp: Stell dir vor du sollst ber einen Flur laufen:# Default Alle 5 Meter musst du eine Tr ffnen bevor du weiter kommst und hinter dir wieder schlieen Screenupdating=False Alle Tren ffnen sich wenn du los lufst automatisch und schlieen sich gleichzeitig selbst, wenn du am Ziel bist. Du kannst deine Beitrge in diesem Forum nicht lschen.

Du kannst an Umfragen in diesem Forum nicht mitmachen.

You can verify that its working though by leaving it set to False. Option Explicit ' User Defined Error codes Const ERR_NO_WINDOW_HANDLE As Long = 1000 Const ERR_WINDOW_LOCK_FAIL As Long = 1001 Const ERR_VERSION_NOT_SUPPORTED As Long = 1002 ' API declarations for Find Window() & Lock Window Update() ' Use Find Window API to locate the Power Point handle.