Wo liegt der fehler in diesem Makro ?Excel to PPT
17.02.2009 16:37:00
sven
ich habe hier ein Makro und finde den Fehler nicht.
ich hab in excel im sheet "Start" ein makro zugewiesen.
Dieses soll mir verschiedene Bereiche nacheinander in eine ppt Datei "demo.ppt"kopieren.
wenn ich das Makro ausführe kommt dauernd ne Fehlermeldung...also Powerpoint geht auf ,also die Datei demo.ppt und dann kommt der Fehler.
"Laufzeitfehler '-21471188160(80048240)'
View.PasteSpecial . invalid request. Clipboard is empty or contains data which may not be paste here
liegt das an der ppt datei oder an was anderem. ich benutzte office 2003 und powerpoint 2007...es ging schonmal irgendwie....keine ahnung warum jetzt nicht mehr...der Bereich der übergeben werden soll ist beim abbrechen noch makiert (Also Zelle A1-H30)...muss die ppt nen besonderes Format haben oder so?Die ppt Präsentation hat 5 slides........also ich komm hier nicht weiter.
Hat jemand ne Idee oder sieht den Fehler ?
Hier das Makro
Sub Excel_Range_an_PPT()
Dim ppApp As Object
Dim ppFile As Object
Dim ppPres As String
Dim picObj As Object, picName As String
'Dateiname
ppPres = "C:\Demo.ppt"
'Object referenzieren
Set ppApp = CreateObject("Powerpoint.Application")
'Bereich kopieren
Worksheets("Start").Range("A1:H30").Copy
'Object initialisieren
ppApp.Visible = msoTrue
'PPT öffnen
Set ppFile = ppApp.Presentations.Open(ppPres)
'Foliennummer angeben
ppApp.ActivePresentation.Slides(1).Select
'Bereich einfügen und OLE Verknüpfung herstellen = Link
With ppApp.ActiveWindow
.View.PasteSpecial DataType:=ppPasteDefault, link:=msoTrue
End With
'Eingefügte Tabelle 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