Si alguna vez quisiste acelerar la transferencia de datos de un libro de Microsoft Excel a tu presentación de Microsoft PowerPoint, entonces usar una macro y Visual Basic para aplicaciones es camino a seguir. VBA es un lenguaje de programación de computadoras empleado en aplicaciones de Microsoft Office para automatizar procesos como copiar datos de Excel. Una macro le permite guardar un conjunto de instrucciones que puede ejecutar una y otra vez con solo hacer clic en un botón.
Paso 1
Inicie Excel, escriba "Alan" en "A1, "" Daniel "en" A2 "," Kitzia "en" A3 "," Oscar "en" A4 "y" Yarexli "en" A5 ". Presione "CTRL" y "S" para guardar el libro en "C: \\" como "ExcelFile.xlsx". Cierre Excel.
Paso 2
Inicie PowerPoint, haga clic en la pestaña "Desarrollador" y haga clic en "Macros" para abrir la ventana de diálogo Macro. Escriba "copyFromExcel" debajo del 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 marque la casilla junto a "Biblioteca de objetos de Microsoft Excel" y haga clic en "Aceptar".
Paso 3
Copie y pegue lo siguiente para crear las variables que utilizará para copiar los datos de Excel: Dim sourceXL As Excel.Aplicación Dim sourceBook As Excel.Workbook Dim sourceSheet As Excel.Worksheet Dim dataReadArray (10) Como String Dim myPress As Presentation Dim newSlide As Slide
Paso 4
Establezca valores para las variables de objeto : Establecer sourceXL \u003d Excel.Application Establecer sourceBook \u003d sourceXL.Workbooks.Open ("G: \\ ExcelFile.xlsx") Establecer sourceSheet \u003d sourceBook.Sheets (1) Establecer myPres \u003d ActivePresentation Establecer newSlide \u003d myPres.Slides.Add (Index: \u003d myPres.Slides.Count + 1, Layout: \u003d ppLayoutText)
Paso 5
Lea los datos en el archivo Excel y guárdelos en una matriz de cadenas: sourceSheet.Range ("A1"). Seleccione dataReadArray (0) \u003d sourceSheet.Range ("A1"). Valor sourceSheet.Range ("A2"). Seleccione dataReadArray (1) \u003d sourceSheet.Range ("A2"). Valor sourceSheet.Range ("A3"). Seleccione dataReadArray ", 3, [[rceSheet.Range ("A3"). Valor sourceSheet.Range ("A4"). Seleccione dataReadArray (3) \u003d sourceSheet.Range ("A4"). Valor sourceSheet.Range ("A5"). Seleccione dataReadArray (4) \u003d sourceSheet.Range ("A5"). Value
Paso 6
Agregue los datos de la matriz String a una nueva diapositiva en su presentación actual: newSlide.Shapes (1) .TextFrame.TextRange \u003d "Data copiado de Excel "newSlide.Shapes (2) .TextFrame.TextRange \u003d dataReadArray (0) & vbNewLine & _ dataReadArray (1) & vbNewLine & _ dataReadArray (2) & vbNewLine & _ dataReadArray (3) & vbNewLr ) & vbNewLine
Paso 7
Cierre el libro de trabajo: sourceBook.Close
Cambie a la ventana de PowerPoint y haga clic en "Macros". Haga clic en "Ejecutar" para ejecutar la macro "copyFromExcel" y agregue una nueva diapositiva con los datos copiados del archivo de Excel que creó en el Paso 1.
[Cómo copiar automáticamente de Excel a PowerPoint usando una macro VBA] URL: http://www.ordenador.online/computadora/Software/257060.html