Aprire un file pptx da excel con macro?

[Andrea22]

Sarà una cosa facilissima ma non ci riesco!!

E' incredibile ho letto e riletto il forum, ho cercato con gogol su
tutta la rete e non riesco ancora ad aprire con una piccola macro un
file powerpoint da excel!!

Sarò limitato?? ed è per questo che chiedo aiuto!!

Il file pippo è giusto, intendo il percorso.

PowerPoint si apre e poi mi dice che il percorso è sbagliato, why??

Dim myVal
myVal = Shell("C:\Programmi\Microsoft Office\Office12\powerpnt.exe C:
\Documents and Settings\utente\Documenti\Pippo.pptx", 1)

PS uso Office 2007

Gracias gracias!

[Pat]

Post by Andrea22
Sarà una cosa facilissima ma non ci riesco!!
E' incredibile ho letto e riletto il forum, ho cercato con gogol su
tutta la rete e non riesco ancora ad aprire con una piccola macro un
file powerpoint da excel!!
Sarò limitato?? ed è per questo che chiedo aiuto!!
Il file pippo è giusto, intendo il percorso.
PowerPoint si apre e poi mi dice che il percorso è sbagliato, why??
Dim myVal
\Documents and Settings\utente\Documenti\Pippo.pptx", 1)
PS uso Office 2007
Gracias gracias!

Ciao Andrea22,

prova così:

Option Explicit

Private Declare Function FindWindow Lib "User32" Alias _
"FindWindowA" (ByVal lpClassName As String, _
ByVal lpWindowName As Long) As Long

Private Declare Function SendMessage Lib "User32" Alias _
"SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, _
ByVal lParam As Long) As Long

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

Private Const SW_SHOWNORMAL As Long = 1

Sub apripptx()
Dim myVal As String
Dim myPptx As String
myVal = "C:\Programmi\Microsoft Office\Office12\powerpnt.exe"
myPptx = "C:\Documents and Settings\utente\Documenti\Pippo.pptx"
ShellExecute -1, "open", myVal, """" & myPptx & """", vbNullString,
SW_SHOWNORMAL
End Sub


Ti ricordo che anche questo newsgroup verrà chiuso il 1° giugno e ti invito
a postare le tue domande nei nuovi forums, che puoi trovare qui
http://social.answers.microsoft.com/Forums/it-IT/category/officeit.
Quello nel quale porre domande su Project è questo
http://social.answers.microsoft.com/Forums/it-IT/officepptit/threads.

Ciao

[Pat]

[...]

Post by Pat
Quello nel quale porre domande su Project è questo

intendevo PowerPoint, scusa.

Ciao

[Andrea22]

Post by Pat
[...]

Post by Pat
Quello nel quale porre domande su Project è questo

intendevo PowerPoint, scusa.
Ciao
--
Pat (Microsoft Office Project MVP)
--http://patitaly0.spaces.live.com

Ciao Pat ho provato ma non succede nulla, proprio nulla mentre
inserendo

myVal = shell ("C:\Programmi\Microsoft Office
\Office12\powerpnt.exe" )

almeno powerpoint parte, ma il file non si apre!

Se inserisco in start/esegui la stringa del file si apre regolarmente!

come mai questa decisione di chiudere i google groups?? Decisione
politica??

Grazie e buon week end

[Pat]

Ciao Andrea22,

Post by Andrea22
Ciao Pat ho provato ma non succede nulla, proprio nulla mentre
inserendo
myVal = shell ("C:\Programmi\Microsoft Office
\Office12\powerpnt.exe" )

Metti il nome del file, con relativo percorso, in una variabile ed associala
alla shell al posto del file.

Post by Andrea22
come mai questa decisione di chiudere i google groups?? Decisione
politica??

in questo e negli altri newsgroup ci sono 3 thread aperti da Microsoft (dei
quali uno di oggi) dove, fra le altre cose, vengono spiegate le loro
motivazioni alla chiusura dei newsgroup...

Post by Andrea22
Grazie e buon week end

Prego, buon fine settimana anche a te!

Ciao

[Andrea22]

Post by Pat
Ciao Andrea22,

Post by Andrea22
Ciao Pat ho provato ma non succede nulla, proprio nulla mentre
inserendo
   myVal = shell ("C:\Programmi\Microsoft Office
\Office12\powerpnt.exe" )

Metti il nome del file, con relativo percorso, in una variabile ed associala
alla shell al posto del file.

Post by Andrea22
come mai questa decisione di chiudere i google groups?? Decisione
politica??

in questo e negli altri newsgroup ci sono 3 thread aperti da Microsoft (dei
quali uno di oggi) dove, fra le altre cose, vengono spiegate le loro
motivazioni alla chiusura dei newsgroup...

Post by Andrea22
Grazie e buon week end

Prego, buon fine settimana anche a te!
Ciao
--
Pat (Microsoft Office Project MVP)
--http://patitaly0.spaces.live.com

RISOLTO COSI'

Public Sub m()
Dim m_ret
Dim sCmd As String

sCmd = Chr(34) & "C:\Programmi\Microsoft Office
\Office12\powerpnt.exe" & Chr(34)

sCmd = sCmd & " " & Chr(34) & "C:\Documents and Settings\utente
\Documenti\Pippo.pptx" & Chr(34)

m_ret = Shell(sCmd, 1)

End Sub

non è farina dle mio sacco! ma di Scossa del Gruppo di excel

Grazie ci vediamo al nuovo indirizzo

andrea