Si la présentation a été faite correctement, elle a été basée sur un masque. Il suffit donc de modifier la couleur de police dans le masque. On peut également utiliser des jeux de couleurs différents.

Le problème survient lorsqu'une présentation a été faite "manuellement", c'est à dire si elle n'a pas été faite dans les règles de l'art ! Dans ce cas, il faut une macro :

Sub couleurs()
'macro écrite par m@rina
dime diapo, forme
For Each diapo In ActivePresentation.Slides
For Each forme In diapo.Shapes
If forme.TextFrame.HasText Then
forme.TextFrame.TextRange.Font.Color.RGB = RGB(255, 0, 0)
End If
Next forme
Next diapo
End Sub

Remplacer les nombres RGB par ceux de la couleur souhaité.

Si l'on souhaite changer uniquement certaines couleurs, il faudra ajouter des conditions de ce type :

If forme.TextFrame.HasText Then
     If forme.TextFrame.TextRange.Font.Color.RGB = RGB(x, x, x) Then
     forme.TextFrame.TextRange.Font.Color.RGB = RGB(255, 0, 0)
     End If
End If

Ecrire un commentaire

Nom: Email:  ne pas notifiernotifier Titre:     Saisissez le code que vous voyez.

Commentaires

Ajouter un nouveau Rechercher

Powered by !JoomlaComment 3.26

3.26 Copyright (C) 2008 Compojoom.com / Copyright (C) 2007 Alain Georgette / Copyright (C) 2006 Frantisek Hliva. All rights reserved."