Se você sempre quis para acelerar a transferência de dados 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 empregada em aplicativos do Microsoft Office para automatizar processos, tais como a cópia de dados de Excel. A 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. Instruções
1

lançamento Excel , digite " Alan " em " A1 ", " Daniel " em " A2 ", " kitzia " em " A3 ", "Oscar " em " A4 " e " Yarexli " em " A5 . " Pressione " CTRL " e " S" para salvar a pasta de trabalho em "C: \\ " como " ExcelFile.xlsx ". Feche o Excel .
2

Inicie o PowerPoint , clique na guia " Desenvolvedor " e clique em "Macros" para lançar a janela de diálogo Macro . Digite " copyFromExcel " abaixo Nome da macro e clique no botão "Criar" . Clique no menu " Ferramentas " e clique em "Referências" para abrir a janela de diálogo referências. Desloque-se e marque a caixa ao lado de " Object Library " e clique em "OK".
3

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
4

Defina os valores para as variáveis ​​de objeto :

Set sourceXL = Excel.Application

Definir MANUAL = sourceXL.Workbooks.Open ("G : \\ ExcelFile.xlsx " )

Set sourceSheet = sourceBook.Sheets (1)

Definir myPres = ActivePresentation

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

Leia os dados do arquivo Excel e armazená-lo em uma matriz de String : . .

sourceSheet.Range ("A1" ) Selecione

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

sourceSheet.Range ( "A2" ) . Selecione

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

sourceSheet.Range ( "A3" ) . Selecione

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

sourceSheet.Range ( "A4 " ) . Selecione

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

sourceSheet.Range ( " A5 " ) . Selecione

dataReadArray (4) = sourceSheet.Range ( " A5 " ) . Valor
< br > 6

Adicione os dados da matriz de String para um novo slide na sua apresentação atual :

newSlide.Shapes (1) TextFrame.TextRange = " os dados copiados do Excel "

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

dataReadArray (1 ) e vbNewLine & _

dataReadArray (2 ) e vbNewLine & _

dataReadArray (3) e vbNewLine & _

dataReadArray (4) e vbNewLine
7

Feche o livro :

sourceBook.Close

8

Alterne para a janela do PowerPoint e clique em " Macros ". Clique em "Executar " para executar a macro " copyFromExcel " e adicionar um novo slide com os dados copiados do Excel arquivo que você criou no passo 1.