Solved: PP2010 ScreenUpdating = False

[Paul_Hossler]

Using Shyam Pillai's VBA to turn off screen updating in 2007

http://skp.mvps.org/ppt00033.htm

Doesn't work as-is in 2010. I took a shot at what seemed a reasonable guess, but guess I wan't close


[VBA]
VersionNo = Left(Application.Version, InStr(1, Application.Version, ".") - 1)

' Get handle to the main application window using ClassName
Select Case VersionNo

' .........
Case "12" ' For 2007:
hwnd = FindWindow("PP12FrameClass", 0&)

Case "14" ' For 2010:------ This does NOT work. My guess :-(
hwnd = FindWindow("PP14FrameClass", 0&)


Case Else
Err.Raise Number:=vbObjectError + ERR_VERSION_NOT_SUPPORTED, _
Description:="Supported for some PowerPoint versions only."
Exit Property
End Select

If hwnd = 0 Then
Err.Raise Number:=vbObjectError + ERR_NO_WINDOW_HANDLE, _
Description:="Unable to get the PowerPoint Window handle"
Exit Property
End If
[/VBA]

It appears that I need the FrameClass of PP2010, even Google didn'thelp

Any ideas?

Paul

[John Wilson]

Hi Paul,
Don't have time to work on this just now but my guess is it may be the API declarations. (Definitely is if you have 64bit office as they must be declared as ptrsafe)

Google for ptrsafe API

[Paul_Hossler]

Shyam came through

[VBA]
'For 2010 you need to add this:
Case "14" ' For 2010:
hwnd = FindWindow("PPTFrameClass", 0&)
[/VBA]

Paul

[John Wilson]

He's a genius! (And as real nice guy too)

[esbenth]

Hi,

Does anyone know how to make Shyam's solution work with Powerpoint 2013?

Esben