none
Macro Copiar do Excel para o Power Point RRS feed

  • Pergunta

  • Pessoal bom dia, espero que possam me ajudar, eu trabalho numa empresa e fiz uma planilha na qual a mesma é preenchida todo final de mês onde se faz um comparativo de mês a mês sobre varias coisas ao mesmo tempo.

    Eu queria saber se tem como eu fazer uma macro na qual já iria montada para o power point, pois manualmente eu demoro muito tempo pra fazer isso, já que são serca de 19 Slides, se tivesse como me ajudaria muito e enconomizaria o meu tempo.

    Tentei de tudo, porem sem sucesso, espero que posam me ajudar.

    Desde já agradeço.

    terça-feira, 10 de setembro de 2013 14:12

Respostas

  • Boa tarde,

    O seguinte código copia o conteudo do Excel e cola o mesmo no PowerPoint como "Meta file".

    Sub copydata()
    Const ppLayoutBlank = 12
     
    Dim objWorkSheet As Worksheet
    Dim objRange As Range
    Set objWorkSheet = ThisWorkbook.ActiveSheet
    Set objRange = objWorkSheet.UsedRange
    objRange.Copy
     
    Dim objPPT As PowerPoint.Application
    Dim objPresentation As Presentation
    Set objPPT = CreateObject("PowerPoint.Application")
    objPPT.Visible = True
     
    Set objPresentation = objPPT.Presentations.Add
    Set objSlide = objPresentation.Slides.Add(1, 1)
     
    objPresentation.Slides(1).Layout = ppLayoutBlank
     
    ' paste as the meta file
    objPPT.Windows(1).View.PasteSpecial ppPasteMetafilePicture, msoTrue, , , "testlabel"
    objPresentation.SaveAs "D:\MyPres.pptx"
    End Sub

    E nesse link tem mais informações a respeito disso: http://www.mahipalreddy.com/vba/ppvba.htm

    Att,


    Giovani Cruzara – Microsoft Contingent Staff

    Esse conteúdo é fornecido sem garantias de qualquer tipo, seja expressa ou implícita.

    Msdn Community Support

    Por favor, lembre-se de “Marcar como Resposta” as respostas que resolveram o seu problema. Essa é uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais fácil para os outros visitantes encontrarem a resolução mais tarde.

    • Sugerido como Resposta Giovani Cr segunda-feira, 16 de setembro de 2013 13:16
    • Marcado como Resposta Alysson QueirozModerator segunda-feira, 16 de setembro de 2013 17:12
    quarta-feira, 11 de setembro de 2013 18:38