Cómo copiar automáticamente desde Excel a PowerPoint El uso de un macro VBA

Si alguna vez quiso acelerar la transferencia de datos de un libro de Microsoft Excel para la presentación de Microsoft PowerPoint, a continuación, utilizando una macro básico y Visual Basic para Aplicaciones es el camino a seguir. VBA es un lenguaje de programación empleado en aplicaciones de Microsoft Office para automatizar procesos tales como la copia de datos de Excel. Una macro le permite guardar un conjunto de instrucciones que se pueden ejecutar una y otra vez con un clic de un botón.

Instrucciones

1 Lanzamiento de Excel ", forma de" Alan "en" A1 "," Daniel "en" A2 "," Kitzia "en" A3 "," Oscar "en" A4 "y" Yarexli "en" A5. Pulse la tecla "Ctrl" y "S" para guardar el libro en "C: \" como "ExcelFile.xlsx." Cierre Excel.

2 Lanzamiento de PowerPoint, haga clic en la pestaña "desarrolladores" y haga clic en "Macros" para abrir la ventana de diálogo Macro. Tipo "copyFromExcel" a continuación Nombre de macro y haga clic en el botón "Crear". Haga clic en el menú "Herramientas" y haga clic en "Referencias" para abrir la ventana de diálogo referencias. Desplácese hacia abajo y seleccione la casilla junto a "Microsoft Excel <número de versión> biblioteca de objetos" y haga clic en "Aceptar".

3 Copiar y pegar el siguiente para crear las variables que va a utilizar para copiar los datos de Excel:

Dim sourceXL Como Excel.Application

Dim sourceBook As Excel.Workbook

Dim sourceSheet Como Excel.Worksheet

Dim dataReadArray (10) As String

myPress tenue Como Presentación

Dim newSlide Como Slide

4 Establecer los valores de las variables de objeto:

Set sourceXL = Excel.Application

Establecer libro de consulta = sourceXL.Workbooks.Open ( "G: \ ExcelFile.xlsx")

Establecer sourceSheet = sourceBook.Sheets (1)

Establecer myPres = ActivePresentation

Establecer newSlide = myPres.Slides.Add (Índice: = myPres.Slides.Count + 1, Diseño: = ppLayoutText)

5 Leer los datos en el archivo de Excel y almacenarla en una matriz de cadenas:

sourceSheet.Range("A1").Select

dataReadArray (0) = sourceSheet.Range ( "A1"). Valor

sourceSheet.Range ( "A2"). Seleccionar

dataReadArray (1) = sourceSheet.Range ( "A2"). Value

sourceSheet.Range ( "A3"). Seleccionar

dataReadArray (2) = sourceSheet.Range ( "A3"). Value

sourceSheet.Range ( "A4"). Seleccionar

dataReadArray (3) = sourceSheet.Range ( "A4"). Value

sourceSheet.Range ( "A5"). Seleccionar

dataReadArray (4) = sourceSheet.Range ( "A5"). Value

6 Añadir los datos de la matriz de cadena a una nueva diapositiva de la presentación actual:

newSlide.Shapes(1).TextFrame.TextRange = "Data copied from Excel"

newSlide.Shapes (2) .TextFrame.TextRange = dataReadArray (0) & vbNewLine & _

dataReadArray (1) y vbNewLine & _

dataReadArray (2) y vbNewLine & _

dataReadArray (3) y vbNewLine & _

dataReadArray (4) y vbNewLine

7 Cierre el libro:

sourceBook.Close

8 Cambie a la ventana de PowerPoint y haga clic en "Macros". Haga clic en "Ejecutar" para ejecutar la macro "copyFromExcel" y añadir una nueva diapositiva con los datos copiados desde el archivo de Excel creados en el paso 1.