Usuário com melhor resposta
Duvida em colar no arquivo PPT,utilizando Excel

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?
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
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
-
-
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