Envío de datos de Excel a una presentación de PowerPoint: dummies

Se ha dicho que hasta el 50 por ciento de las presentaciones de PowerPoint contienen datos que se han copiado directamente de Excel. Esta declaración no es difícil de creer. A menudo es mucho más fácil analizar y crear gráficos y vistas de datos en Excel que en PowerPoint. Después de que se hayan creado esos cuadros y puntos de vista de datos, ¿por qué simplemente no los movería a PowerPoint? La macro en esta sección le permite crear dinámicamente diapositivas de PowerPoint que contienen datos de un rango que usted especifique.

Puede descargar un ejemplo de trabajo de envío de datos de Excel a PowerPoint.

Cómo funciona la macro

En este ejemplo, copia un rango de un archivo de Excel y lo pega a una diapositiva en una presentación de PowerPoint recién creada.

Tenga en cuenta que debido a que este código se ejecutará desde Excel, debe establecer una referencia a la Biblioteca de objetos de Microsoft PowerPoint. Puede establecer la referencia abriendo el Editor de Visual Basic en Excel y seleccionando Herramienta → Referencias. Desplácese hacia abajo hasta encontrar la entrada Microsoft PowerPoint xx Biblioteca de objetos, donde xx es su versión de PowerPoint. Coloque un cheque en la casilla de verificación al lado de la entrada.

Sub CopyRangeToPresentation () 'Paso 1: declare sus variables Dim PP como PowerPoint. Aplicación Dim PPPres Como PowerPoint. Presentación Dim PPSlide Como PowerPoint. Deslizar Dim SlideTitle As String 'Paso 2: Abrir PowerPoint y crear una nueva presentación Establecer PP = Nuevo PowerPoint. Conjunto de aplicaciones PPPres = PP. Presentaciones Agregar PP. Visible = True 'Paso 3: Agregue una diapositiva nueva como la diapositiva 1 y establezca el foco en ella Configure PPSlide = PPPres. Diapositivas. Agregue (1, ppLayoutTitleOnly) PPSlide. Seleccione 'Paso 4: Copie el rango como una imagen Hojas ("Datos de diapositiva"). Rango ("A1: J28"). CopyPicture _ Aspecto: = xlScreen, Formato: = xlPicture 'Paso 5: Pegue la imagen y ajuste su posición PPSlide. Formas. Pegar. Seleccione PP. Ventana activa. Selección. ShapeRange. Alinee msoAlignCenters, True PP. Ventana activa. Selección. ShapeRange. Alinee msoAlignMiddles, True 'Paso 6: Agregue el título a la diapositiva SlideTitle = "Mi primera diapositiva de PowerPoint" PPSlide. Formas. Título. TextFrame. TextRange. Text = SlideTitle 'Paso 7: Memory Cleanup PP. Activar Configurar PPSlide = Nada Establecer PPPres = Nada Establecer PP = Nada End sub

En el Paso 1, declara cuatro variables: PP es una variable de objeto que expone el objeto Aplicación PowerPoint, PPPres es una variable objeto que expone el objeto Presentación PowerPoint, PPSlide es una variable de objeto que expone el objeto Slide de PowerPoint, y SlideTitle es una variable de cadena utilizada para pasar el texto para el título de la diapositiva.

El paso 2 abre PowerPoint con una presentación vacía. Tenga en cuenta que establece la propiedad Visible de la aplicación de PowerPoint en True para garantizar que pueda ver la acción a medida que se ejecuta el código.

En el Paso 3, agrega una nueva diapositiva a la presentación mediante el método Agregar del objeto Diapositiva. Tenga en cuenta que está utilizando ppLayoutTitleOnly, asegurándose de que la diapositiva se crea con un marco de texto de título. A continuación, da un paso adicional y establece el foco en la diapositiva. Es decir, le dice explícitamente a PowerPoint que seleccione esta diapositiva para que esté activa.

En el paso 4, usa el método CopyPicture para copiar el rango objetivo como una imagen. El rango que se copia aquí es el rango de A1 a J28 en la pestaña Datos de la diapositiva.

El paso 5 pega la imagen en la diapositiva activa y centra la imagen tanto horizontal como verticalmente.

En el Paso 6, almacena el texto para el título en una variable de cadena, y luego pasa esa variable a PowerPoint para aplicar texto al marco de texto del título.

En el Paso 7, libera los objetos asignados a sus variables, reduciendo la posibilidad de que surjan problemas causados ​​por los objetos coloreados que pueden permanecer abiertos en la memoria.

Cómo usar la macro

Para implementar esta macro, puede copiarla y pegarla en un módulo estándar:

1. Activar el Editor de Visual Basic presionando Alt + F11.

2. En la ventana Proyecto, encuentre el nombre de su proyecto / libro de trabajo.

3. Elija Insertar → Módulo.

4. Escribe o pega el código.