Folie ausblenden per VBA läuft nicht mit interaktiver Schaltfläche

21/01/2013 - 16:21 von Marco Schmid | Report spam
Hallo zusammen

Ich habe folgendes Problem: Ich habe eine PP-Pràsentation zum Erlernen von Vokabeln (Englisch-Deutsch) erstellt, dies funktioniert soweit ganz gut. Nun möchte ich auf jeder Folie eine Schaltflàche einblenden, die folgenden Code ausführt:

Sub FolienAusblenden()
Dim a As Integer
a = ActiveWindow.Selection.SlideRange.SlideNumber
ActivePresentation.Slides(a).SlideShowTransition.Hidden = msoTrue
End Sub

Dabei soll die aktuelle Folie ausgeblendet werden. Sinn ist natürlich, dass diese Folie beim nàchsten Durchlauf nicht mehr angezeigt wird, da ich die Vokabel beherrsche. Komischerweise funktioniert das Ganze im Einzelschrittmodus ohne Probleme, über die interaktive Schaltflàche jedoch nicht. Andere, kleine Testmakros (z.B. msgbox("Test")) oder àhnliches, laufen ohne Probleme über die interaktive Schaltflàche. Hat jemand von Euch eine Idee woran das liegen könnte?

Besten Dank und freundliche Grüsse
Marco
 

Lesen sie die antworten

#1 jochen.walerka
08/03/2013 - 23:18 | Warnen spam
Am Montag, 21. Januar 2013 16:21:34 UTC+1 schrieb Marco Schmid:
Hallo zusammen



Ich habe folgendes Problem: Ich habe eine PP-Pràsentation zum Erlernen von Vokabeln (Englisch-Deutsch) erstellt, dies funktioniert soweit ganz gut. Nun möchte ich auf jeder Folie eine Schaltflàche einblenden, die folgenden Code ausführt:



Sub FolienAusblenden()

Dim a As Integer

a = ActiveWindow.Selection.SlideRange.SlideNumber

ActivePresentation.Slides(a).SlideShowTransition.Hidden = msoTrue

End Sub



Dabei soll die aktuelle Folie ausgeblendet werden. Sinn ist natürlich, dass diese Folie beim nàchsten Durchlauf nicht mehr angezeigt wird, da ich die Vokabel beherrsche. Komischerweise funktioniert das Ganze im Einzelschrittmodus ohne Probleme, über die interaktive Schaltflàche jedoch nicht. Andere, kleine Testmakros (z.B. msgbox("Test")) oder àhnliches, laufen ohne Probleme über die interaktive Schaltflàche. Hat jemand von Euch eine Idee woran das liegen könnte?



Besten Dank und freundliche Grüsse

Marco



Hi Marco,

vergiss es, hier Fragen zu stellen, die Seite ist tot. Hab selber eine gestellt unb bisher keine Antwort bekommen.
Versuch es mal auf gutefrage.de

Jo

Ähnliche fragen