none
Duvida em colar no arquivo PPT,utilizando Excel RRS feed

  • Pergunta

  • Prezados,

    Estou usando o seguinte codigo:

    Private Sub CommandButton2_Click()
    Dim pptobj As PowerPoint.Application
    Dim pptfile As String
    Dim pptApp As PowerPoint.Application
    Dim pptPres As PowerPoint.Presentation
    Dim pptSld As PowerPoint.Slide
    Dim rng As Excel.Range

    pptfile = OpenFileDialog

    Set pptApp = CreateObject("PowerPoint.Application")


    pptApp.Visible = msoTrue
    pptApp.Visible = True
    pptApp.Presentations.Open pptfile
    Set pptPres = pptApp.ActivePresentation
    pptApp.ActiveWindow.ViewType = ppViewSlide

    pptPres.Slides(2).Select

    Set rng = ThisWorkbook.Worksheets("Monlevade").Range("A1:D12")
    rng.Copy


    End Sub

    Agora preciso colar meu Range copiado do excel no slide 2 do power point.

    Tentei alguns códigos mas nao obtive sucesso,alguem pode ajudar?


    sexta-feira, 27 de novembro de 2015 17:40

Respostas

  • Otávio,

    Armazene o resultado da FileDialog em uma variável, depois utilize o método presenattions.open para abrir a apresentação cujo caminho está armazenado na variável.

    Depois que a apresentação estiver aberta, selecione o slide e cole com pastespecial

    'Open a Presentation
        Set myPresentation = PowerPointApp.Presentations.Open("caminho e nome")
    

    • Marcado como Resposta OtavioBCR terça-feira, 1 de dezembro de 2015 17:36
    terça-feira, 1 de dezembro de 2015 17:32

Todas as Respostas

  • Olá Otávio,

    Veja um exemplo completo de como fazer aqui

    http://www.thespreadsheetguru.com/blog/2014/3/17/copy-paste-an-excel-range-into-powerpoint-with-vba

    Basicamente é utilizar o método pastespecial do objeto shapes

    • Sugerido como Resposta André Santo domingo, 29 de novembro de 2015 11:58
    domingo, 29 de novembro de 2015 11:58
  • Obrigado.

    Mas nao estou conseguindo.

    Tenho um arquivo power point pronto,estou usando o OpenFileDialog para escolhe-lo.

    Agora preciso atribuir este arquivo aos comandos,para que consiga colar nele.

    terça-feira, 1 de dezembro de 2015 17:12
  • Otávio,

    Armazene o resultado da FileDialog em uma variável, depois utilize o método presenattions.open para abrir a apresentação cujo caminho está armazenado na variável.

    Depois que a apresentação estiver aberta, selecione o slide e cole com pastespecial

    'Open a Presentation
        Set myPresentation = PowerPointApp.Presentations.Open("caminho e nome")
    

    • Marcado como Resposta OtavioBCR terça-feira, 1 de dezembro de 2015 17:36
    terça-feira, 1 de dezembro de 2015 17:32