For Each ChartObj In ActiveSheet.ChartObjects
PptApp.ActivePresentation.Slides.Add
PptApp.ActivePresentation.Slides.Count + 1, ppLayoutText
PptApp.ActiveWindow.View.GotoSlide
PptApp.ActivePresentation.Slides.Count
Set iSlide =
PptApp.ActivePresentation.Slides(PptApp.ActivePresentation.Slides.Count)
ChartObj.Select
ActiveChart.ChartArea.Copy
On Error Resume Next
iSlide.Shapes.PasteSpecial(DataType:=ppPasteMetafilePicture).Select
iSlide.Shapes(1).TextFrame.TextRange.Text =
ChartObj.Chart.ChartTitle.Text
PptApp.ActiveWindow.Selection.ShapeRange.Left = 25
PptApp.ActiveWindow.Selection.ShapeRange.Top = 150
iSlide.Shapes(2).Width = 300
iSlide.Shapes(2).Left = 600
Next
AppActivate ("Microsoft PowerPoint")
Set iSlide = Nothing
Set PptApp = Nothing
End Sub

49. Exportar seleção para Microsoft PowerPoint

Esta macro automaticamente exporta uma seleção para uma apresentação de
PowerPoint

Obs 1: É possível ajustar a ajustar a posição da tabela que será exportada no
slide alterando o valor destaco em negrito
Obs 2: Dentro do editor VBA, clicar em ferramentas, referencias e então
procurar por Microsoft PowerPoint Object Library, marque a opção na caixa
de seleção e então pressione OK.