Duvida em colar no arquivo PPT,utilizando Excel

Question

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?

Answer 1

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

Answer 2

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.

Answer 3

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")