user_mobilelogo

Pour tout connaître sur Word
Nouvelle version !

600 pages !

9,80 € 

En savoir plus.

Espérant qu'il n'y a pas 365 dates à remplir...Voici un exemple de macro qui suppose : 

  • que la zone de texte se trouve dans la première diapositive. Si ce n'est pas le cas, il suffit de modifier le numéro pour CurrentShowPosition, 
  • que cette zone de texte se nomme "zone". 

Mettez la macro dans un module quelconque. Il s'agit d'une macro automatique, et donc elle se lancera toute seule dès la première diapo affichée en diaporama. A vous de compléter ce que vous souhaitez faire figure dans la zone de texte, en fonction de la date du jour. Il faudra donc ajouter autant de : 

Case "date"
montexte = "XXXXXXXX"

que de jours à compléter.

 

Sub OnSlideShowPageChange(ByVal diaporama As SlideShowWindow)
'macro écrite par m@rina
Dim jour As Date, montexte As String
jour = Date
Select Case jour
Case "24/12/2015"
montexte = "Reveillon de Noël"
Case "25/12/2015"
montexte = "Noël"
Case "31/12/2015"
montexte="Saint Sylvestre"
End Select

If diaporama.View.CurrentShowPosition = 1 Then
ActivePresentation.Slides(1).Shapes("zone").TextFrame.TextRange.Text = montexte
End If
End Sub
 

Statistiques

Aujourd'hui758
Hier950
Cette semaine11404
Ce mois42168
Total depuis 200413200787

11
visiteurs actuellement en ligne

25 juillet 2021