Expand|Select|Wrap|Line Numbers
- Public Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal vKey As Int32) As UShort
- Sub ScreenOnkey(ByRef Target As Range)
- Dim index As Integer
- index = 0
- mb = InputBox("You name please")
- While index <= mb
- If (GetAsyncKeyState(VK_SNAPSHOT)) Then
- Sleep 250
- keybd_event VK_MENU, 0, 0, 0
- keybd_event VK_SNAPSHOT, 0, 0, 0
- keybd_event VK_SNAPSHOT, 0, KEYEVENTF_KEYUP, 0
- keybd_event VK_MENU, 0, KEYEVENTF_KEYUP, 0
- index = index + 1
- End If
- ActivePresentation.Slides.Add 1, ppLayoutBlank
- ActivePresentation.Slides(1).Shapes.Paste
- Wend
- End Sub