Excel Blatt in PowerPoint
06.09.2004 14:16:43
Sebastian
nochmal einen Versuch. Was ist los mit euch Experten? Kann mir einer von euch helfen? Ich will aus meinem Excel File per knopfdruck PP öffenen (was ich schon hingekriegt habe) und dann ein Blatt in die Präsentation auf eine bestimmte Seite kopieren. Ok das Blatt in Excel auswählen dürfte noch kein Problem für mich darstellen, allerdings komm ich in PP mit dem Einfügen nicht zurecht. Kann mir bitte jemand helfen. Danke.
Gruß Sebastian
Sub CommandButton3_Click()
Dim ppApp As Object
Dim ppP As Object
Dim sFile As String
sFile = ThisWorkbook.Path & "\Expense Development Current Year MASTER FILE New.ppt"
If Dir(sFile) = "" Then
Beep
MsgBox "Die Datei " & sFile & " existiert nicht!"
Exit Sub
End If
Set ppApp = CreateObject("PowerPoint.Application")
ppApp.Visible = msoTrue
Set ppP = ppApp.Presentations.Open(sFile)
End Sub