Excel-Diagramm im Powerpoint kopieren
11.02.2014 09:26:18
Schmecks
kann mir jemand mit folgendem Code helfen? Ich möchte ein Diagramm aus einem Tabellenblatt in Powerpoint übertragen:
Option Explicit
Sub Excel_Chart_an_PPT()
Dim ppApp As Object
Dim ppFile As Object
Dim ppPres As String
Set ppApp = CreateObject("Powerpoint.Application")
With ppApp
.Visible = True
.Presentations.Open Filename:="C:\Excel_Output.ppt"
.ActivePresentation.Slides(2).Select
Sheets("Tabelle1").ChartObjects.CopyPicture
With .ActiveWindow
.View.Paste
.Selection.ShapeRange.Left = 110
.Selection.ShapeRange.Top = 100
.Selection.ShapeRange.Width = 500
.Selection.ShapeRange.Height = 400
End With
End With
End Sub
2. die richtige Folie (2) wird ausgesucht, jedoch
3. das Einfügen scheitert
4. Visual Basic liefert den Laufzeitfehler '-2147188160 (80048240)!: View.Paste : Invalid request. Clipboard is empty or contains data which may not be pasted here.
5. drückt man aber STRG+V fügt er das Diagramm als Bild ein, folglich liegt es doch korrekt in der Zwischenablage, oder nicht?
Kann mir jemand sagen warum das so ist bzw. wo das Problem liegt?
Die Excel_Output.ppt enthält aktuell 10 Folien.
mfg
der Schmecks