Dle google:
1. open your powerpint presentation
2. show the toolbox through view | toolbox
3. drag a button to the slide
4. doubleclick the button
5. the resulting eventhandler looks like
Private Sub CommandButton1_Click()
End Sub
6. add your lines to make it look like
Private Sub CommandButton1_Click()
Dim RetVal
RetVal = Shell("C:\marta.exe", 1)
End Sub
7. change the path to your exe, eg this line
"C:\myfile.exe"
8. close the vb editor
9. run the presentation and click the button
//---------------------Případně:
Private Sub CommandButton1_Click()
Dim RetVal
Application.DisplayAlerts = False
RetVal = Shell("C:\Program Files\IrfanView\i_view32.exe", 1)
Application.DisplayAlerts = True
End Sub