How Do You Link Keys To Cursor In PPT VBA ?

[thePPTman]

Hello
in powerpoint, can you link keys on the keyboard so that when you press a certain key, the cursor automaticaly clicks a certain area on the screen?
help or examples greatly appreciated

[kadghar]

Hello
in powerpoint, can you link keys on the keyboard so that when you press a certain key, the cursor automaticaly clicks a certain area on the screen?
help or examples greatly appreciated

I don't know if Slides have events such as KeyPress, but i think we can use an 'alternative' to this. An alternative i tried before was adding a transparent command button with no text in each slide. It was suposed to be selected all the time, and it was going to have some code in its KeyPress event. This didnt work. =(

What i did was to put a transparent VB TextBox in each slide (note that there's a difference between the shapes you put with PPT and the VB controls you can add using the controls menu) and use its Change event.

Please, also note it must be visible or you wont be able to use it. Just make it small and colorless so nobody will notice it, and keep it always selected.

Now, the other problem we have is that you can select and change any shape or text in the slide, but if it has an hyperlink, i dont know if its possible to click on them with code, unles they are VB controls, instead of shapes.

In case they are PPT shapes i'd re-write the same thing they do all over again with code, instead of attemping to click on it (this will require to move the mouse to the coordenates), in case it's a VB control, well just call the Sub of the event.

Just to give a little example, if you want that when you press "k" you go to the next slide, when you press "q" you stop the presentation, and when you press "t" an explorer its opened in this page, just write something like this in the Change event of the "invisible" textbox:

Private Sub TextBox1_Change()
Select Case LCase(TextBox1.Text)
    Case "k": SlideShowWindows(Index:=1).View.Next
    Case "q": SlideShowWindows(Index:=1).View.Exit
    Case "t"
        Dim obj1 As Object
        Set obj1 = CreateObject("internetexplorer.application")
        obj1.Visible = True
        obj1.navigate "http://www.thescripts.com"
End Select
TextBox1.Text = ""
End Sub

Anyway, i'll keep subscribed here, in case someone else knows a better solution.