Powerpoint : Marquee sur plusieurs Slides

Bonjour à tous,

Je voudrais savoir comment faire défiler un texte "d'info en continue" sur plusieurs slides à la manière du bandeau de pied-de-page d'une chaine d'information en direct : https://www.youtube.com/watch?v=jL8uDJJBjMA

Merci par avance pour vos suggestions.

Bonjour,

A priori ... cet expert Powerpoint a développé une solution ...

http://www.pptalchemy.co.uk/ticker.html

De rien ...

James007 a écrit :

De rien ...

Je t'en prie, pour ma part, j'ai testé sans succès la solution de l'expert. Et pour ne pas rester sans réponse, j'ai creusé d'autres pistes comme par exemple déplacer une shape de slide en slide :

Function PPT_MoveTo(frm As String, Slide As Integer)
  'ActivePresentation.Slides(fromslide).Shapes(frm) = ActivePresentation.Slides(toslide).Shapes(frm)
Dim fromslide As Integer
Dim toslide As Integer
fromslide = Slide
toslide = Slide + 1
    ActivePresentation.Slides(fromslide).Shapes(frm).Cut
    ActivePresentation.Slides(toslide).Shapes.Paste
End Function

A présent, il me reste pas mal de chemins pour faire défiler du texte dans cette shape, en prenant en compte la durée de chaque slide et le reste du texte à faire défiler. Peut-être as-tu d'autres pistes ?