Como copiar automaticamente a partir do excel para o powerpoint usando uma macro vba

Se você sempre quis de acelerar a transferência de dados a partir de um livro do Microsoft Excel para a apresentação do Microsoft PowerPoint, em seguida, usando uma macro e Visual Basic for Applications é o caminho a percorrer. VBA é uma linguagem de programação de computador empregado em aplicações do Microsoft Office para automatizar processos tais como a cópia de dados de Excel. Uma macro permite que você salve um conjunto de instruções que você pode executar uma e outra vez com um clique de um botão.

Lançamento Excel, tipo "Alan" dentro "A1," "Daniel" dentro "A2," "Kitzia" dentro "A3," "Oscar" dentro "A4" e "Yarexli" dentro "A5." pressione "CTRL" e "S" para salvar a pasta de trabalho no "C:" Como "ExcelFile.xlsx." Feche o Excel.

Lançamento PowerPoint, clique no "Desenvolvedor" guia e clique "macros" para abrir a janela de diálogo Macro. Tipo "copyFromExcel" abaixo Nome da macro e clique no "Crio" botão. Clique no "Ferramentas" menu e clique "Referências" para abrir a janela de diálogo referências. Desloque-se e marque a caixa ao lado "Microsoft Excel Object Library" e clique "ESTÁ BEM."

Copie e cole o seguinte para criar as variáveis ​​que você vai usar para copiar os dados do Excel: Dim sourceXL Como Excel.Application Dim MANUAL Como Excel.Workbook Dim sourceSheet Como Excel.Worksheet Dim dataReadArray (10) As String Dim myPress Como Apresentação Dim newSlide As slide

Conjunto de valores para as variáveis ​​de objecto: Conjunto sourceXL = Excel.Application Conjunto Sourcebook = sourceXL.Workbooks.Open ("G: ExcelFile.xlsx") Definir sourceSheet = sourceBook.Sheets (1) Definir myPres = ActivePresentation Definir newSlide = myPres.Slides.Add (Índice: = MyPres.Slides.Count + 1, Esquema: = ppLayoutText)

Ler os dados no arquivo de Excel e armazená-lo em uma matriz String: 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

Adicione os dados a partir da matriz de String para um novo slide em sua apresentação atual: newSlide.Shapes (1) .TextFrame.TextRange = "Dados copiados de Excel" newSlide.Shapes (2) .TextFrame.TextRange = dataReadArray (0) & vbNewLine & _ DataReadArray (1) & vbNewLine & _ DataReadArray (2) & vbNewLine & _ DataReadArray (3) & vbNewLine & _ DataReadArray (4) & vbNewLine

Feche o livro: sourceBook.Close

Alterne para a janela PowerPoint e clique "Macros." Clique "Corre" para executar o "copyFromExcel" macro e adicionar um novo slide com os dados copiados do Excel arquivo que você criou na etapa 1.

Referências

• ligação MSDN: Introdução ao VBA no PowerPoint 2010
• ligação MSDN: os livros abertos

Sobre o autor

Jaime Avelar é um escritor profissional cujos artigos programação aparecem em vários sites. Ele tem sido um programador de software desde 2000. Avelar detém um Master of Science em sistemas de informação da Universidade do Texas em Arlington.