Interações com PowerPoint

48. Exportar gráficos para Microsoft PowerPoint

Esta macro automaticamente cria uma apresentação em PowerPoint com
todos os gráficos dentro de uma planilha ativa.

Obs 1: É possível ajustar a ajustar a posição do gráfico 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.

Sub Excel_chart_to_PPT ()
Dim PptApp As PowerPoint.Application
Dim iSlide As PowerPoint.Slide
Dim ChartObj As Excel.ChartObject
On Error Resume Next
Set PptApp = GetObject(, "PowerPoint.Application")
On Error GoTo 0
If PptApp Is Nothing Then
Set PptApp = New PowerPoint.Application
End If
If PptApp.Presentations.Count = 0 Then
PptApp.Presentations.Add
End If
PptApp.Visible = True