Diagrammexport von Excel nach PowerPoint
Excel
Ich hoffe ihre könnt mir bei diesem Problem helfen.
Ich habe im Netz einen Code gefunden, mit dem ich ein Diagramm aus Excel in ein Powerpoint kopieren kann.
Ich habe den Code nach bestem Wissen und Gewissen angepasst - leider erscheint trotzdem eine Fehlermeldung: Laufzeitfehler PowerPoint could not open the file
Anbei der Code:
*****************
Sub Excel_Chart_an_PPT()
Dim ppApp As Object
Dim ppFile As Object
Dim ppPres As String
'Dateiname
ppPres = "Z:\Digitale Vermarktung\2_Verkaufsunterlagen\4_Traffic\Monatsstatistik\SI online\ _
_
Monatsstatistik_SI_EXPORT.pptx"
'Object referenzieren
Set ppApp = CreateObject("Powerpoint.Application")
'Diagramm kopieren : Name bitte anpassen
ActiveSheet.ChartObjects("Diagramm 1").Chart.ChartArea.Copy
'Object initialisieren
ppApp.Visible = msoTrue
'PPT öffnen
Set ppFile = ppApp.Presentations.Open(ppPres)
'Foliennummer angeben
ppApp.ActivePresentation.Slides(2).Select
'Bereich einfügen und OLE Verknüpfung herstellen = Link
With ppApp.ActiveWindow
.ViewType = ppViewSlide
.View.PasteSpecial DataType:=ppPasteOLEObject, link:=msoTrue
End With
'Eingefügtes Diagramm skalieren
With ppApp.ActiveWindow.Selection.ShapeRange
'Oberer Rand 1 cm unter Standardtitel
.Top = 150
'Linker Rand 1.5 cm von linkem Folienrand
.Left = 35
'Eingefügte Tabelle auf Links und rechts 1,5 cm Rand skalieren
.Width = 650
'Bei Bedarf Höhe noch einstellen
'Hier ist jedoch zu beachten, dass das Object skaliert wird !!!
'Die Breite verändert sich dann
'.Height = 300
End With
End Sub
*****************Könnt Ihr mir sagen wieso das er das Excel nicht aufmacht? Eine Weitere Frage hätte ich da noch: Ist es möglich das Makros auch so anzulegen, dass es nicht nur aus dem Active sheet Daten kopiert und auch von anderen Tabellen - Blättern?
Danke und Grüsse aus Zürich
Fabian