Recherche:

Bonjour

La discussion précédente ne répond pas à ta question ?

Bonne journée

Bonjour

Peut-être à partir de ceci


ActiveWindow.Selection.SlideRange.TimeLine.MainSequence.Count

Bonjour

Ceci pourrait répondre à ta question sur la date avec 45000 une date au hasard:



ActiveWindow.Selection.SlideRange.Shapes("Text Box 4").TextFrame.TextRange.Text = CDate(45000) + 1
...

Bonjour

Par exemple via vba. Mais ça rendra invisible aussi bien à l'impression qu'à l'affichage.


For Each Obj In Diapo.Shapes
If Obj.Visible = msoTrue Then Obj.Visible = msoFalse
Next...

Bonjour

En gros, il faut que tu prennes chaque slide, les unes après les autres.

Pour chaque shape présente, tu peux lire son contenu (j'ai pris comme exemple une zone de texte) dont tu peux...

Bonjour

Pour résumer tu butes sur quoi ? Quelle est ton expérience en vba Powerpoint ?

Pour la couleur des boutons ce pourrait être quelque chose comme ceci : ...

Bonjour

J'ai trouvé ceci, ça pourrait être un bon début. Mais je ne l'ai pas testé personnellement.

https://docs.microsoft.com/fr-fr/office/vba/api/powerpoint.presentation.printout
...

Pause, Ctrl Pause, Esc ou Suppr etc ne stoppe pas la macro ?

Bonsoir

J'imagine que ton ppt va comprendre des slides avec des zones de texte ou une autre forme tant pour les questions que pour les réponses mais qu'il faudra nommer afin de pouvoir retrouver...

Ça devrait répondre à ta demande


With ActiveWindow.Selection.ShapeRange
.Fill.Transparency = 0.9
.PictureFormat.Brightness = 0.56
.PictureFormat.Contrast = 0.56
...

Bonjour

J'ai un peu galéré mais j'ai fini par trouver une solution.:P

Tu dis "C'est la ou je sèche. J'aimerai pouvoir cliquer, dans un ordre aléatoire, sur un carré, que la couleur s'affiche et...

Bonjour

Je ne vois pas trop l’intérêt d'une macro pour inverser 2 images mais qu'importe.

Par contre, je ne sais pas si tu veux juste inverser 2 images ou placer l'une en "premier plan" et...

2 questions :

* Le compte à rebours est mis à 0 à chaque changement de diapo ?

* A la fin du compte à rebours, que se passe t-il ?

Ceci devrait résoudre ton problème

https://answers.microsoft.com/fr-fr/msoffice/forum/all/sommaire-automatique-dans-powerpoint/0b136829-1fdf-4851-bff3-dc9a33aa5222

Bonne journée

Bonsoir

Positionne manuellement tes photos sur une slide.

Via vba,
Relève la position de chaque photo i : ActiveWindow.Selection.SlideRange.Shapes(i).Left, .Top, .Width, .Height, .Type.

À...

Ceci devrait te convenir


Application.ActivePresentation.BuiltInDocumentProperties("Last save time")

Bonjour

Je ne pense pas qu'il y ait des TabIndex comme dans d'autres applications.

Un moyen c'est via une macro de sélectionner la forme dont on veut changer la position dans la collection...

Ouvre cet article et tu trouveras comment créer un événement à chaque changement de slide.
...

Bonsoir

J'ai essayé ta macro et tout semble marcher chez moi.

Quel est ton problème ?

Après avoir testé ta macro, j'ai vu que la discussion est résolue !!

Comment ?

Bonsoir

Tu peux l'atteindre et modifier ses propriétés par

With ActivePresentation.SlideMaster
i = .Shapes.Count: Stop
End With

Oups, petite erreur

Surbrillance puis Clic Droit (Word 2010)

Bonjour,

Si je mets en surbrillance le texte à numéroter, j'ai les différentes options :

* Redémarrer à 1
* Continuer la numérotation.