Předmět Autor Datum
Dle google: 1. open your powerpint presentation 2. show the toolbox through view | toolbox 3. drag…
AZOR 31.05.2006 14:05
AZOR
:-D dik... :-D poslední
Intex 31.05.2006 14:07
Intex

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

Zpět do poradny Odpovědět na původní otázku Nahoru