Ms access turn off screenupdating
Open("C:\sample.pps", _ With Window:=mso False) 'Open a window now to the presentation for editing p Show.New Window ' Unlock the window to start refreshing again Screen Updating = True Exit Sub Err Handle: If Err.Keep that on mind if you will execute anything which would take less time.And after all don’t turn screen updating on/off many times in some loop. And one more note (which you probably don’t want to hear) if you want it quick use C .
Raise Number:=vb Object Error ERR_WINDOW_LOCK_FAIL, _ Description:="Unable to set a Power Point window lock" Exit Property Else Lock Window Update (hwnd) End If Else 'Unlock the Window to refresh Lock Window Update (0&) Update Window (hwnd) hwnd = 0 End If End Property Sub Test Sub() ' Lock screen redraw If Screen Updating Off = True Then Screen Updating = False ' --- Loop through charts in Excel and export them to Powerpoint ' Redraw screen again Screen Updating = True End Sub How do I do this? I tried copying all the code above into a class module and then added Set Screen Updating = New Screen Updating in my regular module, to no avail. EDIT: Just use the code as it was originally written: no need to add anything.
Programming techniques are demonstrated through real-world examples.