Powerpoint mit VBA aktuelle Folie ermitteln für Weiterverabeitung

Diskutiere Powerpoint mit VBA aktuelle Folie ermitteln für Weiterverabeitung im Office Forum im Bereich Microsoft Community Fragen; Hallo, ich suche eine Möglichkeit in Powerpoint VBA bei jedem Folienwechsel die aktuelle Folie / Foliennummer zu ermitteln und diese in eine...
M

MSCom

Neuer Benutzer
Threadstarter
Dabei seit
20.09.2016
Beiträge
1
Hallo,

ich suche eine Möglichkeit in Powerpoint VBA bei jedem Folienwechsel die aktuelle Folie / Foliennummer zu ermitteln und diese in eine Variable zu schreiben. Diese Variable möchte ich dann zur weiteren Verarbeitung nutzen. z.B. Blende auf aktueller Folie die Grafik xyz aus wenn etwas passiert oder eine andere Variable einen bestimmten Wert hat.

Wenn ich eine der beiden Varianten nutze, dann funktionieren nachfolgenden MsgBoxen nicht mehr / werden nicht angezeigt. Keine Ahnung warum? Wenn ich ActiveWindow... bzw. powerPointApplication.ActiveWindow... deaktivieren und statt ActivePresentation.Slides(aktuelleFolie) ActivePresentation.Slides(2) schreibe, dann funktioniert das Einblenden und Ausblenden.

Sub OnSlideShowPageChange()
aktuelleFolie = ActiveWindow.Selection.SlideRange(1).SlideIndex
MsgBox "Das ist Folie Slideindex " & aktuelleFolie
If Joker5050 = "True" Then

MsgBox "in der Schleife 1 = Joker5050 ausblenden"
ActivePresentation.Slides(aktuelleFolie).Shapes("5050").Visible = 0
ActivePresentation.Slides(aktuelleFolie).Shapes("5050_durchgestrichen").Visible = 1
Else
MsgBox "in der Schleife 2 = Joker5050 einblenden"
ActivePresentation.Slides(aktuelleFolie).Shapes("5050").Visible = 1
ActivePresentation.Slides(aktuelleFolie).Shapes("5050_durchgestrichen").Visible = 0 ...
...
End Sub

Sub OnSlideShowPageChange()
Set powerPointApplication = GetObject(, "PowerPoint.Application")
Set powerPointPresentation = powerPointApplication.ActivePresentation
aktuelleFolie = powerPointApplication.ActiveWindow.View.Slide.SlideIndex
MsgBox "Das ist Folie Slideindex " & aktuelleFolie
If Joker5050 = "True" Then
MsgBox "in der Schleife 1 = Joker5050 ausblenden"
ActivePresentation.Slides(aktuelleFolie).Shapes("5050").Visible = 0
ActivePresentation.Slides(aktuelleFolie).Shapes("5050_durchgestrichen").Visible = 1
Else
MsgBox "in der Schleife 2 = Joker5050 einblenden"
ActivePresentation.Slides(aktuelleFolie).Shapes("5050").Visible = 1
ActivePresentation.Slides(aktuelleFolie).Shapes("5050_durchgestrichen").Visible = 0
...
...
End Sub


Welchen Code sollte ich verwenden.
 
Thema:

Powerpoint mit VBA aktuelle Folie ermitteln für Weiterverabeitung

Powerpoint mit VBA aktuelle Folie ermitteln für Weiterverabeitung - Ähnliche Themen

Einbettung von excel-Diagramm in PowerPoint mittels VBA: Bisher konnte ich mit VBA in PowerPoint ein Diagramm wie folgt einfügen: Sub test() Dim shape As Object Set shape =...
Excel - VBA: Hallo Zusammen! Kann mir jemand sagen, wie ich es einfacher gestallten kann? Ich muss dies von Zeile 2 bis 1915 machen. LG Nikola Sub...
Code zu einer Schleife formen: Hallo Community, Ich habe einen Code, und der Soll zu einer Schleife umgewandelt werden. Sub schleife() Range("B1").Select...
Excel VBA: Liebe Community! Ich habe Office 365. Ich habe eine Excel Vorlage mit VBA Codes. Diese Vorlage hat jetzt 3 Jahre perfekt funktioniert. Vor 1...
Excel VBA: Hallo Zusammen! Ich brauche Hilfe bei der Programmierung vom VBA... 1. Ich möchte, dass zusätzlich die Zeilen F2&G2 automatisch gelöscht...

Sucheingaben

vba folie einblenden

Oben