appPP As PowerPoint.Application
06.10.2006 10:39:03
Stephan
zu Präsentationszwecken erstelle ich meine Standardpräsentation immer mit den neuesten Vertriebszahlen, die ich dynamisch aus einer Excelmappe lade. Das habe ich bereits in früheren Tagen erfolgreich getan.
Mein neues "Projekt" bereitet mir jedoch kurz vor Ende Kopfschmerz: Beim Starten von Powerpoint aus einem Excel Makro heraus ersccheint in der Zeile appPP As PowerPoint.Application: "Benutzerdefinierter Typ nicht definiert".
Powerpoint ist global (am Anfang des Skriptes) als appPP As PowerPoint.Application definiert. Die eigentliche Unterfunktion (Powerpoint Starten) sieht so aus:
Sub PowerpointStarten()
Dim path As String
Set appPP = CreateObject("PowerPoint.Application")
'Der folgende Befehl ist notwendig, um auf Powerpoint zugreifen zu können
appPP.Visible = True
If appPP.Presentations.Count = 0 Then
path = ActiveWorkbook.path
'Masterfoliename
appPP.Presentations.Open path & "\Masterfolie.ppt"
' appPP.ActiveWindow.ViewType = ppViewSlideSorter
' appPP.ActivePresentation.Slides.Range(Array(2)).Select
' appPP.ActiveWindow.ViewType = ppViewSlide
'Der folgende Befehl ruft das Powerpoint-Fenster auf. Sollte Powerpoint bereits vor Ablauf des Moduls
'geöffnet gewesen sein, würde die Verarbeitung sonst im Hintergrund (unter Anzeige des Excel-Fensters)
'verlaufen
appPP.Activate
Else
MsgBox prompt:="Das Programm kann nicht durchgeführt werden, da mindestens " & Chr(10) & _
"eine Powerpoint-Präsentation geöffnet ist.", Buttons:=vbOKOnly + vbCritical, Title:="Abbruch:"
'"Statusmeldung" am oberen rechten Rand
End
End If
End Sub
Da ich selber nicht weiterkomme, benötige ich qualifizierte Hilfe, vielen Dank.
Anzeige