Utilizamos cookies propias y de terceros para mejorar la experiencia de navegación, y ofrecer contenidos y publicidad de interés. Al continuar con la navegación entendemos que se acepta nuestra política de cookies.
Private Sub Command1_Click()
Dim a As Double
a = Shell("C:\Archivos de programa\Microsoft Office\Office\POWERPNT.EXE /s c:\a.pps", vbMaximizedFocus)
End Sub
