PP Makro für Excel
18.07.2003 18:20:50
Wolfgang
habe die gleiche Frage gestern in Spotlight(Powerpoint) gestellt und keine Antwort erhalten, also kein Crossposting!
Private Sub Testen()
With ActivePresentation.Slides(1)
.Copy
End With
Excel.Workbooks("Test.xls").Excel.Worksheets(1).Range("A1").PasteSpecial
End Sub
Dieser Code funkt nicht, soll im Klartext aber die erste Folie der aktiven Präsentation in eine Excel-Tabelle copieren, am besten als GIF.
Könnt ihr mir hierbei bitte helfen?
Danke dafür im voraus.
Gruß
Wolfgang