Cómo copiar automáticamente desde excel a powerpoint usando una 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 como la copia de datos de Excel. Una macro le permite guardar un conjunto de instrucciones que puede ejecutar una y otra vez con un clic de un botón.

Lanzamiento de Excel, el tipo "Alan" en "A1," "Daniel" en "A2," "kitzia" en "A3," "Oscar" en "A4" y "Yarexli" en "A5." prensa "CTRL" y "S" para guardar el libro en "DO:" como "ExcelFile.xlsx." Cierre Excel.

Lanzamiento de PowerPoint, haga clic en el "Desarrollador" ficha y haga clic "macros" para iniciar la ventana de diálogo Macro. Tipo "copyFromExcel" a continuación Nombre de macro y haga clic en el "Crear" botón. Haga clic en el "Herramientas" menú y haga clic "referencias" para iniciar la ventana de diálogo referencias. Desplácese hacia abajo y seleccione la casilla junto a "Microsoft Excel Biblioteca de objetos" y haga clic "DE ACUERDO."

Copia y pega el siguiente para crear las variables que va a utilizar para copiar los datos de Excel: Dim Dim sourceXL Como Excel.Application DE CONSULTA Como Excel.Workbook Dim Dim sourceSheet Como Excel.Worksheet dataReadArray (10) As String Dim Dim myPress Como Presentación newSlide Como Slide

Valores de ajuste a las variables de objeto: Conjunto sourceXL = Excel.Application Conjunto SOURCEBOOK = sourceXL.Workbooks.Open ("G: ExcelFile.xlsx") Ajuste sourceSheet = sourceBook.Sheets (1) Ajuste myPres = ActivePresentation Conjunto newSlide = myPres.Slides.Add (Índice: = myPres.Slides.Count + 1, Layout: = ppLayoutText)

Leer los datos en el archivo de Excel y lo almacenan en una matriz de cadenas: sourceSheet.Range ("A1") .Select dataReadArray (0) = sourceSheet.Range ("A1") .Value sourceSheet.Range ("A2") .Select dataReadArray (1) = sourceSheet.Range ("A2") .Value sourceSheet.Range ("A3") .Select dataReadArray (2) = sourceSheet.Range ("A3") .Value sourceSheet.Range ("A4") .Select dataReadArray (3) = sourceSheet.Range ("A4") .Value sourceSheet.Range ("A5") .Select dataReadArray (4) = sourceSheet.Range ("A5").Valor

Añadir los datos de la matriz de cadena 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) & vbNewLine & _ DataReadArray (1) & vbNewLine & _ DataReadArray (2) & vbNewLine & _ DataReadArray (3) & vbNewLine & _ DataReadArray (4) & vbNewLine

Cierre el libro: sourceBook.Close

Cambiar a la ventana de PowerPoint y haga clic "Macros." Hacer clic "correr" para ejecutar el "copyFromExcel" macro y añadir una nueva diapositiva con los datos copiados del Excel archivo que ha creado en el paso 1.

referencias

• enlazar MSDN: Introducción a VBA en PowerPoint 2010
• enlazar MSDN: libros abiertos

Sobre el Autor

Jaime Avelar es un escritor profesional cuyos artículos de programación aparecerá en varios sitios web. Ha sido un programador de software desde 2000. Avelar tiene una Maestría en Ciencias en sistemas de información de la Universidad de Texas en Arlington.