Editando PowerPoint incorporado do Excel VBA

Question

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?

Answer 1

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!