Servus liebe Community,
gerne würde ich via Makro eine Grafik aus Excel in die aktuell geöffnete Powerpoint einfügen. Jedoch stürzen PPT und Excel bei der Ausführung des Codes immer ab (MAC User). Ich wäre dankbar für jegliche Hilfe. Vielen Dank
Hier mein Code:<pre>
Sub TabellenKopieren()
Dim strPfad As String
Dim strFile As String
Dim appPP As Object
Set appPP = CreateObject("PowerPoint.Application")
Sheets("Tabelle1").Select
ActiveSheet.ChartObjects("Diagramm 1").Activate
ActiveChart.ChartArea.Copy
appPP.ActivePresentation.Slides(2).Select
appPP.ActiveWindow.View.Paste
End Sub
|