El envío de datos de excel en una presentación de 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 afirmació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 creadas las tablas y vistas de datos, ¿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 el envío de datos de Excel a PowerPoint.

Cómo funciona la macro

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

Tenga en cuenta que debido a que el código se ejecuta desde Excel, es necesario establecer una referencia a la biblioteca de objetos Microsoft PowerPoint. Puede establecer la referencia mediante la apertura de Editor de Visual Basic en Excel y la elección de herramientas → Referencias. Desplazarse hacia abajo hasta encontrar la entrada de Microsoft PowerPoint xx Biblioteca de objetos, en el que 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: Declarar 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 = Nueva PowerPoint.ApplicationSet PPPres = PP.Presentations .AddPP.Visible = True`Step 3: Añadir nueva diapositiva como diapositiva 1 y establecer el foco en itSet PPSlide = PPPres.Slides.Add (1, ppLayoutTitleOnly) PPSlide.Select`Step 4: copiar el rango como un pictureSheets ("datos de diapositivas").Distancia("A1: J28") .CopyPicture _Appearance: = xlScreen, Formato: = xlPicture`Step 5: pegar la imagen y ajustar sus msoAlignCenters positionPPSlide.Shapes.Paste.SelectPP.ActiveWindow.Selection.ShapeRange.Align, TruePP.ActiveWindow.Selection.ShapeRange.Align msoAlignMiddles, True`Step 6: Añadir el título a la slideSlideTitle = "En primer lugar mi diapositiva de PowerPoint"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 de aplicación PowerPoint, PPPres es una variable de objeto que expone el objeto de presentación de PowerPoint, PPSlide es una variable de objeto que expone el objeto de diapositiva de PowerPoint, y SlideTitle es una cadena variable que se utiliza para pasar el texto para el título de la diapositiva.

Paso 2 Se abre una presentación de PowerPoint con vacío. Tenga en cuenta que se establece la propiedad Visible de la aplicación PowerPoint 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 corredera se crea con un marco de texto del título. A continuación, tomar un paso adicional y ajustar el enfoque en la diapositiva. Es decir, que 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 objetivo como una imagen. La gama se copie aquí es rango A1 a J28 en la ficha Presentación de datos.

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

Video: Insertar tabla de Excel en Powerpoint

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

En el paso 7, se sueltan los objetos asignados a las variables, reduciendo la posibilidad de cualquier problema causado por objetos rouge que pueda permanecer abierta en la memoria.

Cómo utilizar la macro

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

Video: Excel Avanzado - Vincular con Power Point

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

2. En la ventana de proyecto, encontrar el nombre del proyecto / libro.

   Video: Auto Create PowerPoint Standup Presentation with Excel VBA

3. Seleccione Insertar → Módulo.

4. Escribir o pegar el código.

   Video: Como hacer hipervinculos de Excel a PowerPoint tutorial full