El envío de datos de Excel a una presentación powerpoint

Se ha dicho que hasta el 50 por ciento de las presentaciones de PowerPoint contiene datos que han sido copiados directamente de Excel. Esta declaración no es difícil de creer. A menudo es mucho más fácil de analizar y crear tablas y vistas de datos en Excel que en PowerPoint. Una vez creados los gráficos y datos puntos de vista, ¿por qué no simplemente moverlos en PowerPoint? La macro en esta sección le permite crear de forma dinámica las diapositivas de PowerPoint que contienen datos de un rango especificado.

Puede descargar un ejemplo de trabajo de enviar los datos de Excel a PowerPoint.

Cómo funciona el macro

En este ejemplo, se copia un rango desde un archivo Excel y pegar, que van a una diapositiva en una presentación de PowerPoint de nueva creación.

Tenga en cuenta que debido a que este código se ejecutará desde Excel, es necesario establecer una referencia a Microsoft PowerPoint Object Library. Puede establecer la referencia al abrir el Editor de Visual Basic en Excel y la elección de la herramienta de Referencias. Desplácese hacia abajo hasta encontrar la entrada de Microsoft PowerPoint xx Biblioteca de objetos, donde el xx es su versión de PowerPoint. Coloque una marca en la casilla de verificación junto a la entrada.

Sub CopyRangeToPresentation () 'Paso 1: Declare su variablesDim PP Como PPPres PowerPoint.ApplicationDim Como PowerPoint.PresentationDim PPSlide Como PowerPoint.SlideDim SlideTitle Como String'Step 2: Abrir PowerPoint y crear nuevos presentationSet PP = Nuevo PowerPoint.ApplicationSet PPPres = PP.Presentations .AddPP.Visible = True'Step 3: Añadir nueva diapositiva como diapositivas 1 y el enfoque establecido en itSet PPSlide = PPPres.Slides.Add (1, ppLayoutTitleOnly) PPSlide.Select'Step 4: Copie el rango como pictureSheets ("Slide Datos ") .Range (" A1:. J28 ") CopyPicture _Appearance: = xlScreen, Formato: = xlPicture'Step 5: Pegue la imagen y ajustar su positionPPSlide.Shapes.Paste.SelectPP.ActiveWindow.Selection.ShapeRange.Align msoAlignCenters, TruePP .ActiveWindow.Selection.ShapeRange.Align msoAlignMiddles, True'Step 6: Añadir el título a la "Slide Mi primer PowerPoint" slideSlideTitle = PPSlide.Shapes.Title.TextFrame.TextRange.Text = SlideTitle'Step 7: Memoria CleanupPP.ActivateSet PPSlide = NothingSet PPPres = NothingSet PP = NothingEnd sub

En el paso 1, se declara cuatro variables: PP es una variable de objeto que expone el objeto Application PowerPoint, PPPres es una variable de objeto que expone el objeto Presentación PowerPoint, PPSlide es una variable de objeto que expone el objeto de diapositivas de PowerPoint, y SlideTitle es una cadena variables utiliza para pasar el texto para el título de la diapositiva.

Paso 2 abre PowerPoint con una presentación vacía. Tenga en cuenta que se establece la propiedad Visible de la aplicación PowerPoint como True para asegurar que se puede ver la acción que el código se ejecuta.

En el paso 3, se agrega una nueva diapositiva a la presentación utilizando el método Add del objeto de diapositiva. Tenga en cuenta que está utilizando ppLayoutTitleOnly, asegurando que la diapositiva se crea con un marco de texto del título. A continuación, tomar un paso adicional y el enfoque establecido en la diapositiva. Es decir, usted le dice explícitamente PowerPoint para seleccionar esta diapositiva, por lo que es activo.

En el paso 4, se utiliza el método CopyPicture para copiar el rango meta como una imagen. El rango de la copia aquí es la gama A1 a J28 en la ficha Diapositiva de Datos.

Paso 5 pastas de la imagen en la diapositiva activa y centra la imagen, tanto horizontal como verticalmente.

En el paso 6, que almacena el texto por 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, suelte los objetos asignados a las variables, reduciendo la posibilidad de cualquier problema causado por objetos rouge que pueden permanecer abiertos en la memoria.

Cómo utilizar la macro

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

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

2. En la ventana de proyecto, encuentra tu proyecto / nombre del libro.

3. Seleccione Insertar-Module.

4. Escriba o pegue el código.