Edición de PowerPoint incorporado desde Excel VBA

excel-vba powerpoint-vba

Question

Tengo una presentación de PowerPoint incrustada en un libro de trabajo de Excel. ¿Cómo puedo editar esto (abrir, copiar diapositivas, agregar datos a las diapositivas, cerrar) usando VBA?

Answer 1

1. Agregue una referencia al Modelo de objetos de PowerPoint a su aplicación VBA

Desde la ventana de VBA, elija Herramientas | Referencias
Busque la Biblioteca de objetos de Microsoft Powerpoint 12.0 y compruébelo

2. Seleccione y active el objeto de presentación de PowerPoint

ActiveSheet.Shapes("Object 1").Select
Selection.Verb Verb:=xlOpen

Nota: este código asume que el objeto de PowerPoint se llama Object 1 (busque en la esquina superior izquierda para ver su nombre) y que está en la hoja activa.

3. Obtener una referencia al objeto Presentación

Dim p As PowerPoint.Presentation
Set p = Selection.Object

4. Manipularlo

Todos los métodos y propiedades de un objeto de presentación están disponibles para usted. Aquí hay un ejemplo de cómo agregar una diapositiva:

p.Slides.Add 1, ppLayoutBlank

5. Deseleccionarlo

La forma más fácil es simplemente seleccionar una celda.

[a1].Select

¡Espero que ayude!