|
'// PowerPoint VBA Equivalent
of Application.ScreenUpdating
'//
-------------------------------------------------------------------------
'// Excel & Word have the ScreenUpdating method thru
which a developer can lock
'// the main window from unnecessarily redrawing
itself whilst the macro is being executed.
'// This method is however not present in
PowerPoint.
'// If left alone, redrawing is not only ugly on the
eyes it also takes more time for
'// the macro to reach completion.
'// Hence I created this generic wrapper to lock the
window updates.
'//
-------------------------------------------------------------------------
'
--------------------------------------------------------------------------
' Copyright ⓒ1999-2002, Shyam Pillai, All Rights
Reserved.
'
--------------------------------------------------------------------------
' You are free to use this code within your own
applications, add-ins,
' documents etc but you are expressly forbidden from
selling or
' otherwise distributing this source code without
prior consent.
' This includes both posting free demo projects made
from this
' code as well as reproducing the code in text or
html format.
'
--------------------------------------------------------------------------
'// UserDefined 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 FindWindow() &
LockWindowUpdate()
'// Use FindWindow API to locate the PowerPoint
handle.
Declare Function FindWindow
Lib "user32" Alias "FindWindowA" (ByVal lpClassName
As String, ByVal lpWindowName As Long) As Long
'// Use LockWindowUpdate to
prevent/enable window refresh
Declare Function LockWindowUpdate Lib "user32" (ByVal
hwndLock As Long) As Long
'// Use UpdateWindow to force
a refresh of the PowerPoint window
Declare Function UpdateWindow Lib "user32" (ByVal
hwnd As Long) As Long
Property Let
ScreenUpdating(State As Boolean)
Static hwnd As Long
Dim VersionNo As String
'// Get Version Number
'// Get handle to the main application window using
ClassName
'// 파워포인트의 버전에 따라 클래스 값을 달리하여 파워포인트 윈도우의 핸들을 구합니다.
VersionNo =
Left(Application.Version, InStr(1,
Application.Version, ".") - 1)
Select Case VersionNo
Case "8"
' For PPT97:
hwnd = FindWindow("PP97FrameClass", 0&)
Case "9"
' For PPT2K:
hwnd = FindWindow("PP9FrameClass", 0&)
Case "10" ' For XP:
hwnd = FindWindow("PP10FrameClass", 0&)
Case Else
Err.Raise Number:=vbObjectError +
ERR_VERSION_NOT_SUPPORTED, _
Description:="Supported for PowerPoint
97/2000/2002 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
If State = False Then
'// 얻어 온 핸들값을 가지고 화면을 잠궈 버립니다.
If LockWindowUpdate(hwnd) = 0 Then
Err.Raise Number:=vbObjectError +
ERR_WINDOW_LOCK_FAIL, _
Description:="Unable to set a
PowerPoint window lock"
Exit Property
End If
Else
'// Unlock the Window to refresh
'// 얻어 온 핸들값을 가지고 화면을 갱신합니다.
LockWindowUpdate (0&)
UpdateWindow (hwnd)
hwnd = 0
End If
End Property |
OfficeTutor 365