ich habe folgendes Problem. Es ist zwar ein PowerPoint Problem, aber vielleicht kann mir trotzdem hier jemand helfen:
Der folgende Code formatiert zwei Felder in einer PowerPoint Präsentation und soll dann eine MsgBox öffnen mit einer ja/nein Frage.
Aus irgendeinem Grund taucht die MsgBox aber schon auf, obwohl die Formatierung noch gar nicht abgeschlossen ist. Die Formatierung ist erst 2-3 Sekunden später abgeschlossen bzw wird erst nach 2-3 Sekunden so dargestellt. Woran könnte das liegen?
Danke für eure Hilfe!
Code:
Dim objPP As Object
Dim objP As Object 'PowerPoint.Presentation
Dim Start As Integer
Dim Ende As Integer
Dim DoIt As Integer
Dim StepByStep As Boolean
Dim ToTheEnd As Boolean
Dim NurLinks As Boolean
Dim LinksuOben As Boolean
Set objPP = GetObject(, "PowerPoint.Application")
Set objP = objPP.ActivePresentation
Start = UF_FormatAssii.TB_AssiVon.Value
Ende = UF_FormatAssii.TB_AssiBis.Value
ActivePresentation.Slides(Start).Shapes("Blau").Fill.Transparency = 0.5
ActivePresentation.Slides(Start).Shapes("Grün").Fill.Transparency = 0.5
If UF_FormatAssii.OB_totheEnd = True Then
Antwort = MsgBox("Test1", vbYesNoCancel + vbDefaultButton2)
ElseIf UF_FormatAssii.OB_StepbyStep = True Then
Antwort = MsgBox("Test2?", vbYesNoCancel + vbDefaultButton2)
End If