Caro Manuel Dias,
Eu vi a sua questão mas fiquei com dúvidas sobre o que realmente acontece e acabei por não responder na expectativa de que alguém pudesse fazer alguma sugestão. A minha dúvida é se o Powerpoint chega a abrir a apresentação ou não i.é abre apenas como se tivesse dado um clique no ícone do Powerpoint? Não sei qual é o objectivo do programa, se for para usar num computador que não o seu e em que esses programas podem não existir o que vai acontecer? Para referência se em vez da função Shell utilizar a função ShellExecute pode "executar" os próprios ficheiros de vídeo, powerpoint, etc que o Windows lançará o programa que o utilizador tem registado para abrir esse tipo de ficheiro. Por exemplo um pps poderia abrir no Impress do LibreOffice se for esse que o utilizador tem instalado em vez do Office. A função ShellExecute encontra-se no shell32.dll pelo que tem que se adiciona a seguinte declaração ao programa. Public 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 Pode encontrar documentação sobre essa função bem como um exemplo no seguinte link: https://support.microsoft.com/en-us/kb/170918 -- ___ Rui Paz Rui Paz __^__ Já aqui coloquei este pedido de ajuda em 5 de Janeiro, mas até hoje ainda não obtive uma resposta. Possivelmente a programação não é um ‘saber’ para toda a gente, e até talvez esta dúvida não esteja ao ‘alcance’ de alguém. Mas aqui fica mais uma vez a minha dúvida: ----------------------------------- Uso o ‘VisualBasic6’, (já muito antigo), para criar programas para mim próprio. Num determinado ‘Form’, para visionar um vídeo, tenho estas linhas: LocalDoVideo = Data1.Recordset!Pasta & "\" & Data1.Recordset!NomeVideo ProgramaVideo = Shell("C:\Program Files\VideoLAN\VLC\vlc.exe " & Chr(34) & LocalDoVideo & Chr(34), 1) 'Run VLC (‘LocalDoVideo’ é uma variável onde fica alocada a pasta e o nome do Vídeo a abrir) Até aqui, tudo corre normalmente. O respectivo Vídeo é aberto pelo VLC. Agora tentei fazer o mesmo mas em vez de um vídeo, (MP4, AVI, etc.), tentei apresentar o conteúdo de um PPS. ProgramaVideo = Shell("C:\Program Files\Microsoft Office\Office14\Powerpnt.exe " & Chr(34) & LocalDoVideo & Chr(34), vbMaximizedFocus) 'Run PP Mas aqui abre o programa no PowerPoint como se fosse um PPT e não visiona logo como normalmente acontece com um PPS. Será que tenho de adicionar algum atributo a seguir a ‘Powerpnt.exe’ ? Cumprimentos Manuel Dias – Parede -- ------------------------------------------------------------------------------ CANCELAR MENSAGENS: Devolva p.f. esta mensagem com essa indicação, ou a alteração de email se for o caso. ------------------------------------------------------------------------------
