Late Binding - hat jemand einen Tipp?
14.07.2004 19:28:15
Moldor
sorry das ich einen neuen Beitrag aufmache, aber der alte scheint verwaist.
Ich möchte gerne den Ihnalt eines Blattes (Werte + Diagramm) in eine PowerPoint Präsentation exportieren. Da das unter verschiedenen Version lauffähig sein soll, muss ich Late Binding verwenden.
Folgendes hab ich:
Private Sub CommandButton1_Click()
Dim PPTApp As Object
Set PPTApp = CreateObject("PowerPoint.Application")
With PPTApp
.Visible = -1
.Presentations.Add
With .ActivePresentation
.slides.Add 1, 12
ActiveSheet.Copy
.slides(1).Shapes.Paste
End With
End With
End Sub
Bis auf Copy und Paste funktioniert auch alles (Danke an K.Rola). hier hapert es jetzt ein wenig, ich komme einfach nicht weiter
Vielleicht kennt ja jemnd die Lösung des Problems
Danke im voraus
Moldor