Thema Datum  Von Nutzer Rating
Antwort
Rot Timer für Effekt in VBA PowerPoint einstellen
19.04.2021 13:03:33 Max
NotSolved
19.04.2021 19:20:49 Gast70016
NotSolved
19.04.2021 20:15:58 Max
NotSolved
Blau ;o)
19.04.2021 23:58:49 Gast70016
NotSolved

Ansicht des Beitrags:
Von:
Max
Datum:
19.04.2021 13:03:33
Views:
75
Rating: Antwort:
  Ja
Thema:
Timer für Effekt in VBA PowerPoint einstellen

Hallo Liebe VBA-Forum,

ich habe folgenden Code. In dem letzten Abschnitt des Codes würde ich gern für Effekt 1 die Zeit einstellen, ab wann der Effekt ausgeführt werden soll. Das soll dann einzeln für Effekt 2, 3 usw. auch eingestellt werden können.
Das Einstellen des Effektes, wie lange er dauern soll, funktioniert schon.
Weis jemand eine Lösung dazu?


Vielen Dank und Liebe Grüße
Max




Sub Effekte_automatisieren()

'Effekt für das erste Bild
Dim shp As Shape
  
With ActivePresentation
  With .Slides(3)
    Set shp = .Shapes(1)
    'Eingangseffekt
    With .TimeLine.MainSequence
      .AddEffect shp, msoAnimEffectFly, , msoAnimTriggerAfterPrevious

      With .AddEffect(shp, msoAnimEffectFly, , msoAnimTriggerAfterPrevious)
        .Exit = msoTrue
        .EffectParameters.Direction = msoAnimDirectionTop
      End With
    End With
    shp.PickupAnimation
  End With
  .SlideShowSettings.Run
End With

'Dauer des Effektes
 ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence(1).Timing.Duration = 1
 ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence(2).Timing.Duration = 1 
  

'funktioniert nicht timer nachdem ein Effekt automatisch eingespielt wird  

With ActivePresentation.Slides(3).Shapes(1).Effects(1).AnimationSettings
    .AdvanceMode = ppAdvanceOnTime
    .AdvanceTime = 0.1         'Timer
End With
 
End Sub

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Timer für Effekt in VBA PowerPoint einstellen
19.04.2021 13:03:33 Max
NotSolved
19.04.2021 19:20:49 Gast70016
NotSolved
19.04.2021 20:15:58 Max
NotSolved
Blau ;o)
19.04.2021 23:58:49 Gast70016
NotSolved