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'hui181
Hier2325
Cette semaine12974
Ce mois58025
Total depuis 200413616511

3
visiteurs actuellement en ligne

29 janvier 2022