i need help...
Eine ganz simple doch für mich nach langer Suche mit google nicht lösbare Frage.
Kopieren eines Diagramms von Excel nach Powerpoint. Dabei soll die ursprüngliche Formatierung beibehalten werden. Mehr nicht.. Mein bisheriger Code fügt es zwar als Diagramm ein, doch leider als Zieldesign...
Sub Excel_Diagramm_an_PPT()
Dim ppApp As Object
Dim ppFile As Object
Dim ppPres As String
'Dateiname
Set ppApp = CreateObject("Powerpoint.Application")
With ppApp
.Visible = True
.Presentations.Open Filename:= _
"Pfad zur Datei" 'Link wurde entfernt
.ActivePresentation.Slides(2).Select
Sheets(2).ChartObjects(1).Copy
.ActivePresentation.Slides(2).Shapes.PasteSpecial DataType:=ppPasteDefault
End With
End Sub
Falls so etwas schon besprochen wurde, bitte einfach darauf hinweisen. Wahrscheinlich ist die Lösung ganz simple...