Access - Abrir archivo .ppsx desde access

Hola Que tal,

estoy haciendo una mejora a mi sistema de informacion a empleados, este se encuentra en un touch y necesito abrir archivos de presentaciones de power point, tengo el sig. codigo pero los archivos .ppsx los abre normales como .pptx


Dim path1 As String, NArch5 As String
path1 = "C:\Program Files (x86)\Microsoft Office\Office14\powerpnt.exe"
NArch5 = "c:\oficina\despierta.ppsx"
Call Shell(path1 & " " & NArch5, vbNormalFocus)


alguien sabe como le hago para que los abra como view

gracias de antemano

Hola.

Si he de serte sincero, no tengo ni idea de por qué no te lo abre como presentación directa. He estado mirando por ahí, a ver si se necesitaba algún tipo de modificador, pero desafortunadamente no he podido encontrar nada.

A ver si hay alguien del foro que pueda darnos una solución.

Mientras tanto, si quieres, puedes probar otra sistemática:

- En el módulo asociado al formulario que estás utilizando para abrir la presentación, depués de la línea de cabecera "Option Compare Database" (y después de "Option Explicit", si tienes requerida la declaración de variables), escribes la siguiente función:

...
Private Declare Function ShellExecute Lib "shell32.dll" Alias _
"ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, _
ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
...

Y en el botón (doy por supuesto que es un botón), en su evento "Al hacer clic", le generas este código:
...
Private Sub...
Dim NArch5 as string
NArch5 = "c:\oficina\despierta.ppsx"
Call ShellExecute(Me.hwnd, "Open", NArch5, "", "", 1)
End Sub
...

A ver si así te funciona como quieres.

Un saludo,


http://neckkito.siliconproject.com.ar

Biieenn,,, gracias neckkito.... funciona perfectamente....

un saludo...