Powerpoint : Marquee sur plusieurs Slides

Word, PowerPoint, Outlook, Access et tous les autres logiciels de la suite Office (sauf Excel)
Avatar du membre
oxydum
Membre fidèle
Membre fidèle
Messages : 232
Appréciations reçues : 17
Inscrit le : 29 mai 2019
Version d'Excel : 2016 FR

Message par oxydum » 8 août 2019, 10:17

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.
Avatar du membre
James007
Fanatique d'Excel
Fanatique d'Excel
Messages : 12'007
Appréciations reçues : 412
Inscrit le : 30 août 2014
Version d'Excel : 2007 EN

Message par James007 » 8 août 2019, 11:55

Bonjour,

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

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

:)

Quand on n’a qu’un marteau, tous les problèmes deviennent des clous…
Avatar du membre
James007
Fanatique d'Excel
Fanatique d'Excel
Messages : 12'007
Appréciations reçues : 412
Inscrit le : 30 août 2014
Version d'Excel : 2007 EN

Message par James007 » 13 août 2019, 17:42

De rien ...
A+

:)

Quand on n’a qu’un marteau, tous les problèmes deviennent des clous…
Avatar du membre
oxydum
Membre fidèle
Membre fidèle
Messages : 232
Appréciations reçues : 17
Inscrit le : 29 mai 2019
Version d'Excel : 2016 FR

Message par oxydum » 14 août 2019, 08:45

James007 a écrit :
13 août 2019, 17:42
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 ?
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message