Dados do Excel em slides do PowerPoint

Question

Já encontrei alguns sites úteis, mas ainda não consigo fazer o que quero. Meu arquivo do Excel contém poucas colunas e várias linhas. Todos os dados de uma linha estariam em um slide, mas os dados de células diferentes naquela linha deveriam ir para elementos específicos no slide PP. No início, é possível exportar dados de uma célula do Excel para uma caixa de texto específica no PP? Por exemplo, eu gostaria de ter todos os dados da primeira coluna de cada linha ir para uma caixa de texto 1. Digamos que eu tenha 100 linhas para que eu tivesse 100 slides e cada slide teria texto arco 1 com dados corretos. A caixa de texto do slide 66 teria dados da primeira coluna da linha 66. Então, todos os dados da segunda coluna de cada linha iriam para um arco de texto 2 e assim por diante.

Eu tentei fazer algumas macros com mau sucesso. Eu também tentei usar contornos do Word e exportá-los para o PP (Novo slide - > Slides do Outline), mas parece haver um bug desde que eu tenho 250 páginas de rabiscos. Eu tinha apenas dois parágrafos e ambos tinham uma palavra. O primeiro parágrafo usou o estilo do Título 1 e o segundo parágrafo usou o estilo Normal.

Sites que eu encontrei, use VB e / ou alguma outra linguagem de programação para criar slides a partir de planilhas do Excel. Eu tentei adicionar esses códigos VB em minhas macros, mas nenhum deles funcionou até agora. Provavelmente eu não sei como usá-los corretamente :) Aqui estão alguns sites úteis:

VBA: Criar slide do PowerPoint para cada linha na pasta de trabalho do Excel

Criando uma apresentação Relatório baseado em dados

Pergunta no Stackoverflow

Eu uso o Office 2011 no Mac. Qualquer ajuda seria apreciada!

    

Answer 1

Tente algo assim. Eu fiz alguns mods para que substitua qualquer instância do texto @ COL1 @ no slide com valores da planilha. Aircode não testado, lembre-se.

Sub CreateSlides()
'Open the Excel workbook. Change the filename here.
Dim OWB As New Excel.Workbook
Set OWB = Excel.Application.Workbooks.Open("C:\list.xlsx")
'Grab the first Worksheet in the Workbook
Dim WS As Excel.Worksheet
Dim sCurrentText As String
Dim oSl As Slide
Dim oSh As Shape
Set WS = OWB.Worksheets(1)
Dim i As Long
'Loop through each used row in Column A
For i = 1 To WS.Range("A65536").End(xlUp).Row
    'Copy the first slide and paste at the end of the presentation
    ActivePresentation.Slides(1).Copy
    Set oSl = ActivePresentation.Slides.Paste(ActivePresentation.Slides.Count + 1)
    sCurrentText = WS.Cells(i, 1).Value

    ' find each shape with "@COL1@" in text, replace it with value from worksheet
    For Each oSh In oSl.Shapes
      ' Make sure the shape can hold text and if is, that it IS holding text
      If oSh.HasTextFrame Then
        If oSh.TextFrame.HasText Then
          ' it's got text, do the replace
          With oSh.TextFrame.TextRange
            .Replace "@COL1@", sCurrentText
          End With
        End If
      End If
    Next
Next
End Sub

    

Answer 2

O Importação do Excel do PowerPoint pode importar dados do Excel para o PowerPoint

O que faz

• importa dados do Excel para sua apresentação aberta
  Método: Uma linha do Excel por slide do PowerPoint, uma célula por campo de texto no slide atual
• pode escolher a planilha do Excel para extrair dados se houver várias planilhas
• pode adicionar slides automaticamente se o arquivo do Excel tiver mais linhas do que slides no PowerPoint
• avisa se não houver campos de texto (formas) suficientes para conter todos os dados de uma linha
• funciona com todas as versões do Microsoft Office

Como usar

• Faça o download do Add-In
• salve em sua pasta do Microsoft Office Add-In
  Dica: pressione Win + R e digite % AppData% \ Roaming \ Microsoft \ AddIns
• Abra o PowerPoint e ative o suplemento
  • Excel 2003: barra de menus → Ferramentas → Suplementos
  • Excel 2007: Botão Iniciar → Opções do Excel → Suplementos → suspenso: Suplementos do Excel → Ir
  • Excel 2010: guia Arquivo → Opções → Suplementos → suspenso: Suplementos do Excel → Ir

uma nova entrada na barra de menus será exibida

onovobotãoImportardadosdoExcelabriráumacaixadediálogoArquivoparaescolheroarquivodoExcel.
Sevocêtivercamposdetextosuficientes,osuplementoospreencherá

Vejaeste álbum imgur para ilustrar o Add-in

Observação: se você quiser personalizar o código, adicione uma chave de registro para ver o código Add-In.
O código-fonte pode ser visto em pastebin

    

Answer 3

O PPTools não funciona em 64 bits, que agora é padrão.

O PowerPoint VAI abrir o Word Docs. E o Word abrirá o HTML.

1. No Excel, insira uma coluna à esquerda.
2. Coloque a tag HTML < h1 > em todas as células dessa coluna.
3. Em uma coluna na extrema direita, coloque a tag html < / h1 > em todas as células.
4. Copie / cole a folha inteira no bloco de notas.
5. Adicione estas tags na parte superior: < html > < body >
6. Adicione estas tags na parte inferior: < / body > < / html >
7. Pesquise / substitua todas as guias por nada, para se livrar delas.
8. Salve isso como algo.html. Agora feche.
9. Abra no Word.
10. Salve como algo.docx
11. Agora feche.
12. Abra algo.docx no PowerPoint (escolha "todos os arquivos" em vez de "* .pptx").
13. O PowerPoint DEVE importar o conteúdo completo agora, com cada linha como um slide.