Como copiar automaticamente do Excel para o PowerPoint usando uma macro VBA

Passo 1

Execute Excel, escreva "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". Fechar o Excel

Passo 2

Execute o PowerPoint, clique na guia "Desenvolvedor" e clique em "Macros" para executar a caixa de diálogo de macro. Escreva "copyFromExcel" sob o "Nome da Macro" e clique no botão "Criar". Clique no menu "Ferramentas" e pressione "Preferências" para executar a caixa de diálogo "Referências". Role para baixo e marque a caixa "Microsoft Excel Object Library" e clique em "OK".

Passo 3

Copie e cole o seguinte para criar as variáveis ​​que você usará para copiar os dados do Excel:

Dim sourceXL Como Excel.Application Dim sourceBook Como Excel.Workbook Dim sourceSheet Como Excel.Worksheet Dim dataReadArray (10) As String Dim myPress Como Apresentação Dim newSlide As Slide

Passo 4

Ajuste os valores das variáveis ​​de objeto:

Set sourceXL = Excel.Application Set 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, Layout: = ppLayoutText)

Passo 5

Leia os dados no arquivo do Excel e armazene-os em um vetor Chain:

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

Passo 6

Adicione os dados do vetor Chain ao novo slide em sua apresentação atual:

newSlide.Shapes (1) .TextFrame.TextRange = "Dados copiados do Excel" newSlide.Shapes (2) .TextFrame.TextRange = dataReadArray (0) & vbNewLine e _ dataReadArray (1) & vbNewLine & _ dataReadArray (2) & vbNewLine & _ dataReadArray (3) & vbNewLine & _ dataReadArray (4) & vbNewLine

Passo 7

Feche a pasta de trabalho:

sourceBook.Close

Passo 8

Alterne para a janela do PowerPoint e clique em "Macros". Clique em "Executar" para executar a macro "copyFromExcel" e adicione um novo slide com dados copiados do arquivo do Excel criado na etapa 1.