schön daß hier auf einem Feiertag auch was los ist.
Ich muß leider arbeiten *stöhn*
Zu meinem Problem.
Ich möchte einen Screenshot von Excel (weiss schon wie das geht)
in eine leere Powerpoint Folie einbinden.
Wie Powerpoint gestartet wird weiss ich.
Nur: Wie bekomme ich die Grafik aus der Zwischenablage in Powerpoint ohne im PP selber Makros zu aktivieren ????
Drucken aus PP würde auch gehen.
Anbei mein Quelltext aus Excel:
Option Explicit
Sub PrintWord()
Dim ppApp As Object
Dim ppDoc As Object
Dim sFile As String
sFile = ThisWorkbook.Path & "\MeinSchreiben1.ppt"
Set ppApp = CreateObject("PowerPoint.Application")
ppApp.Visible = True
Range("A1:C1").Copy
Set ppDoc = ppApp.presentations.Open(sFile)
'ppDoc.View.Paste ' geht nicht
'ppDoc.PrintOut ' würde funktionieren
Delay 5
ppApp.Quit
Set ppDoc = Nothing
Set ppApp = Nothing
Application.CutCopyMode = False
End Sub
Public Sub Delay(HowLong As Date)
Dim temptime
temptime = DateAdd("s", HowLong, Now)
While temptime > Now
DoEvents 'Andere Proggis auch mal ran lassen
Wend
End Sub
Gruß + Dank
Oliver