- 10 Set 2015 às 08:36
#3013
Bom dia,
Criei uma macro no Excel que abre diversos arquivos que já existem em Power Point, atualiza os vínculos destes arquivos, e posteriormente - deveria - exportar como PDF.
Quase toda a macro está Ok, somente o exportar como PDF não está funcionando. Utilizei dois códigos diferentes, o que me retorna problemas diferentes, vamos lá:
- Utilizando o código ppt.ActivePresentation.SaveAs Link & "\" & Y & ".pdf" (Sim, o nome do arquivo é variável, ou seja, utiliza o Y, mas esse não é problema pois posteriormente salvo o mesmo arquivo como ".pptx" e funciona): O erro acontece quando abro o PDF, pois diz que "O adobe reader não pode abrir o arquivo porque não há suporte a esse tipo de arquivo ou ele foi danificado (por exemplo, foi enviado como anexo de e-mail e não foi decodificado corretamente)".
- Utilizando ppt.ActivePresentation.ExportAsFixedFormat ActivePresentation.Path & "\" & ActivePresentation.Name & ".pdf", ppFixedFormatTypePDF, ppFixedFormatIntentPrint (Utiliza a mesma variável de nome, conforme acima): O erro acontece na execução da Macro, no qual é o erro 429, ou seja, "O componente ActiveX não pode criar objeto.
Observação: Já carreguei o Adobe Reader 11 como referência.
E então, o que devo fazer para conseguir exportar esse ppt para pdf?
Agradeço desde já!
Criei uma macro no Excel que abre diversos arquivos que já existem em Power Point, atualiza os vínculos destes arquivos, e posteriormente - deveria - exportar como PDF.
Quase toda a macro está Ok, somente o exportar como PDF não está funcionando. Utilizei dois códigos diferentes, o que me retorna problemas diferentes, vamos lá:
- Utilizando o código ppt.ActivePresentation.SaveAs Link & "\" & Y & ".pdf" (Sim, o nome do arquivo é variável, ou seja, utiliza o Y, mas esse não é problema pois posteriormente salvo o mesmo arquivo como ".pptx" e funciona): O erro acontece quando abro o PDF, pois diz que "O adobe reader não pode abrir o arquivo porque não há suporte a esse tipo de arquivo ou ele foi danificado (por exemplo, foi enviado como anexo de e-mail e não foi decodificado corretamente)".
- Utilizando ppt.ActivePresentation.ExportAsFixedFormat ActivePresentation.Path & "\" & ActivePresentation.Name & ".pdf", ppFixedFormatTypePDF, ppFixedFormatIntentPrint (Utiliza a mesma variável de nome, conforme acima): O erro acontece na execução da Macro, no qual é o erro 429, ou seja, "O componente ActiveX não pode criar objeto.
Observação: Já carreguei o Adobe Reader 11 como referência.
E então, o que devo fazer para conseguir exportar esse ppt para pdf?
Agradeço desde já!