VBA Ereigniss bei Power Point start

Hallo zuammen,

ich bin gerade dabei eine PPT Präsentation mit VBA zu automatisieren.
Die Einträge in einer Combo Box würde ich gerne bei Start der Präsentation
eintragen.

Private Sub App_AfterPresentationOpen(ByVal Pres As Presentation)
With Pres
Slide11.cmboTarif.AddItem ("Hund")
Slide11.cmboTarif.AddItem ("Katze")
Slide11.cmboTarif.AddItem ("Maus")
Slide11.cmboTarif.AddItem ("Affe")

End With
End With
End Sub

Was mache ich falsch ?

Auserdem hatt das Combofeld insgesamt 6 Einträge. Wenn ich aber anklicke
sind nicht alle 6 ersichtlich sonder nur der aktuelle und ein weiterer. Damit
man die anderen sieht muss man halt jeweils durch klicken auf den Pfeil
nach unter klicken. Welche Eigenschaft muss ich da Umstellen, das die ganze
Liste ersichtlich ist ?

MFG Rudi