Cómo copiar de forma automática desde Excel a PowerPoint El uso de un VBA Macro

Si usted siempre quiso acelerar la transferencia de datos de un libro de Microsoft Excel a una presentación de Microsoft PowerPoint , a continuación, utilizando una macro y Visual Basic para Aplicaciones es el camino a seguir . VBA es un lenguaje de programación utilizado 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 , escriba " Alan " en " A1 ", " Daniel " en " A2 ", " Kitzia " en " A3 ", "Oscar " en " A4" y " Yarexli " en " A5 ". Pulse "CTRL " y " S " para guardar el libro en "C: \\ " como " ExcelFile.xlsx . " Cierre Excel.
2

lanzamiento PowerPoint , haga clic en la pestaña de " desarrolladores" y haga clic en "Macros" para abrir la ventana de diálogo Macro . Tipo " copyFromExcel " a continuación Nombre de la macro y haga clic en el botón " Create " . 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 " Excel 3

Copia y pega el siguiente para crear las variables que va a utilizar para copiar los datos de Excel :

sourceXL As Excel.Application

Sourcebook As Excel.Workbook

sourceSheet As Excel.Worksheet

Dim dataReadArray ( 10 ) As String

myPress As Presentación

newSlide As Slide
4

valores de ajuste para las variables de objeto :

Set sourceXL = Excel.Application

Set Sourcebook = sourceXL.Workbooks.Open ( "G : \\ ExcelFile.xlsx " )

Set sourceSheet = sourceBook.Sheets ( 1 )

Set myPres = ActivePresentation

Set newSlide = myPres.Slides.Add (Índice: = myPres.Slides.Count + 1 , Layout : = ppLayoutText )
5

Leer los datos de la archivo de Excel y guárdelo en una matriz String : .

sourceSheet.Range ("A1 ") Seleccione

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

sourceSheet.Range ( " A2 " ) . Seleccione

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

sourceSheet.Range ( " A3 " ) . Seleccione

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

sourceSheet.Range ( "A4 ") . Seleccione

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

sourceSheet.Range ( " A5 ") . Seleccione

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

6

Añada los datos de la matriz de cadenas a una nueva diapositiva de la presentación actual : .

newSlide.Shapes ( 1 ) TextFrame.TextRange = "Los datos copiados de Excel "

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

dataReadArray ( 1 ) y vbNewLine & _

dataReadArray ( 2 ) y vbNewLine & _

dataReadArray ( 3 ) y vbNewLine & _

dataReadArray (4) y vbNewLine
7

cierra el libro :

sourceBook.Close

8

Cambiar 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 del archivo de Excel que creó en el paso 1 .