Bienvenue 

sur les faqs Word & PowerPoint

Une question ? Cliquez ici.

 Un exemple à télécharger ? Cliquez ici.

 

Word 365 : Vous saurez tout !

Auteur sur XinXii

Pour tout connaître sur Word

8,90 €

 

 

 

Si la présentation a été faite correctement, elle a été basée sur un masque, lui-même basé sur un jeu de couleurs. Il suffit donc de modifier la couleur de police dans le masque. Et si la couleur souhaitée ne fait pas partie du masque, on utilisera un jeu de couleurs différent.

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(25500)
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(25500)
End If
End If

 

Statistiques

Aujourd'hui741
Hier2693
Cette semaine3434
Ce mois21514
Total depuis 200410756922

44
visiteurs actuellement en ligne