Notifications
Clear all

Exportar Apresentação (ppt) para PDF

4 Posts
2 Usuários
0 Reactions
1,078 Visualizações
(@guigo2810)
Posts: 4
New Member
Topic starter
 

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á!

 
Postado : 10/09/2015 5:24 am
(@mprudencio)
Posts: 2749
Famed Member
 

Eu costumo usar o proprio gravador de macros para gerar arquivos PDF, depois realizo a edição do codigo para que ele utilize uma variavel, tente fazer a exportação dessa maneira.

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 10/09/2015 6:21 am
(@guigo2810)
Posts: 4
New Member
Topic starter
 

Marcelo Prudêncio, obrigado pelo retorno.

O problema é que o que exporta para pdf é o power point, e lá não há como gravar macros. Ou há?

 
Postado : 10/09/2015 7:45 am
(@guigo2810)
Posts: 4
New Member
Topic starter
 

Consegui uma solução em outro fórum. Compartilho abaixo:

Na rotina altere a declaração de variaveis, conforme abaixo:

Dim PPT As PowerPoint.Application
Set PPT = New PowerPoint.Application

e a linha de pdf conforme abaixo
CÓDIGO: SELECIONAR TODOS
PPT.activepresentation.ExportAsFixedFormat Link & y & ".pdf", ppFixedFormatTypePDF, ppFixedFormatIntentPrin

 
Postado : 10/09/2015 10:25 am