Editando PowerPoint incorporado do Excel VBA
-
02-07-2019 - |
Pergunta
Eu tenho uma apresentação PowerPoint incorporado em um Excel pasta de trabalho. Como posso editar esta (abrir, copiar slides, adicionar dados a slides, fechar) usando VBA?
Solução
1. Adicione uma referência para o objeto PowerPoint modelo para sua aplicação VBA
Na janela VBA, escolha Ferramentas | Referências
Procure Microsoft Powerpoint 12.0 Object Library e verificá-lo
2. Selecionar e ativar o objeto de apresentação do PowerPoint
ActiveSheet.Shapes("Object 1").Select
Selection.Verb Verb:=xlOpen
Nota:. Este código assume que o objeto PowerPoint é chamado Objeto 1 (olhar no canto superior esquerdo para ver o que é realmente chamado) e que é da planilha ativa
3. Obter uma referência para o objeto Apresentação
Dim p As PowerPoint.Presentation
Set p = Selection.Object
4. Manipulá-lo
Todos os métodos e propriedades de um objeto de apresentação estão disponíveis para você. Aqui está um exemplo de como adicionar um slide:
p.Slides.Add 1, ppLayoutBlank
5. Desmarcá-lo
A maneira mais fácil é apenas para selecionar uma célula.
[a1].Select
Espero que ajude!