Von Excel nach Powerpoint
23.08.2004 17:31:40
Redneck
ich übertrage per Code Excelzellinhalte nach Powerpoint und möchte nach erfolgreicher Übertragung der Präsentation einen Namen zuweisen. Ich benutze u.a. Code mit dem auch das speichern einwandfrei funktioniert. Nur erscheint meine Inputbox auf der Exceldatei und nicht auf der Präsentation. Wie kann ich Powerpoint dazu bringen, sich zu minimieren, mit "Application.WindowState = ppWindowMaximized" funktioniert es nicht!
Dim FName As String
FName = InputBox("Dateinamen eingeben:", _
"Werkschutz Dienstmodul", "Monatsbericht 01.2004.pps")
If Len(Trim(FName)) = 0 Then
Exit Sub
End If
appPowerPt.Presentations(1).SaveAs Filename:="C:\TZE\" & FName, FileFormat:=ppSaveAsShow, EmbedTrueTypeFonts:=msoFalse
Application.WindowState = ppWindowMaximized
appPowerPt.Quit
Gruß Redneck