OberonPlace.com Forums

OberonPlace.com Forums (http://forum.oberonplace.com/index.php)
-   CorelDRAW/Corel DESIGNER VBA (http://forum.oberonplace.com/forumdisplay.php?f=16)
-   -   What does the following code do (http://forum.oberonplace.com/showthread.php?t=24824)

aakkaarr 09-01-2019 03:48

What does the following code do
 
Public Sub Speeder(State As Boolean, Optional UndoTitle As String = "Makro execution")

If State Then
ActiveDocument.BeginCommandGroup UndoTitle
Optimization = True
EventsEnabled = False
ActiveDocument.SaveSettings "Speeder"
ActiveDocument.PreserveSelection = False
Else
ActiveDocument.RestoreSettings "Speeder"
EventsEnabled = True
Optimization = False
Refresh
ActiveDocument.EndCommandGroup
End If

End Sub


All times are GMT -5. The time now is 18:09.

Powered by vBulletin® Version 3.8.1
Copyright ©2000 - 2020, Jelsoft Enterprises Ltd.
Copyright © 2011, Oberonplace.com