I am working on vba PowerPoint. I am new in vba so kindly bear me. I'm trying to capt

[Ali55555551]

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

Now problem is when i run my macro it is not concluding the ScreenOnkey. Thanks

[Ali55555551]

I am working on vba PowerPoint. I am new in vba so kindly bear me. I'm trying to capture the active screen using GetAsynKeyState function. And paste it to PowerPoint .Following is the code in which it should work when i press key VK_MENU.