Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Powerpoint Police et couleur de caractères

Police et couleur de caractères

4 réponses
Avatar
gérard
Bonjour
Une autre petite question...
Existe-t-il une macro qui puisse modifier une police ou la couleur des
caractères sur tout un montage PowerPoint 2003 ?
Je me suis aperçu que ma police tirant sur la couleur rouge était un peu
claire et peu lisible sur les fond images...
Cordialement
Gérard
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
jpforestier
Si tu as utilisé les zones automatiques, il suffit de modifier en une seule
fois dans le masque, Police et Couleur
"gérard" a écrit dans le message de news:
%23Rzz%
Bonjour
Une autre petite question...
Existe-t-il une macro qui puisse modifier une police ou la couleur des
caractères sur tout un montage PowerPoint 2003 ?
Je me suis aperçu que ma police tirant sur la couleur rouge était un peu
claire et peu lisible sur les fond images...
Cordialement
Gérard



Avatar
gérard
"jpforestier" a écrit dans le message
de news:
Si tu as utilisé les zones automatiques, il suffit de modifier en une
seule fois dans le masque, Police et Couleur
"gérard" a écrit dans le message de news:
%23Rzz%


Bonjour
Merci Jean-Pierre mais je n'ai pas utilisé les zones automatiques... j'ai un
peu bricolé... sans trop de méthode
Une erreur de débutant !
Amicalement
Gérard
Avatar
Circé
Bonjour,

gérard a exprimé avec précision :
"jpforestier" a écrit dans le message
de news:
Si tu as utilisé les zones automatiques, il suffit de modifier en une seule
fois dans le masque, Police et Couleur
"gérard" a écrit dans le message de news:
%23Rzz%


Bonjour
Merci Jean-Pierre mais je n'ai pas utilisé les zones automatiques... j'ai un
peu bricolé... sans trop de méthode
Une erreur de débutant !



Effectivement, la première chose à faire lorsqu'on crée une
présentation PowerPoint, est de définir la mise en forme dans le masque
ainsi que le ou les jeux de couleurs, ce qui permet après coup de faire
très rapidement des modifications.

Voici une macro pour corriger ton problème :

Sub couleurs()
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

Tu corriges le RGB en fonction de la couleur que tu souhaites.

Attention, cette macro modifie la couleur de tous les textes de ta
présentation. Si tu ne veux pas modifier tout, il faudra modifier la
macro... Si par exemple, tu as des textes de différentes couleurs et
que tu ne veux modifier que le rouge, il faudra ajouter une condition
sur le rouge :
If forme.TextFrame.TextRange.Font.Color.RGB = RGB(x, x, x) Then

Amicalement
Gérard


Avatar
gérard
"Circé" a écrit dans le message de news:
%23i%23T%
Bonjour,

gérard a exprimé avec précision :
"jpforestier" a écrit dans le
message de news:
Si tu as utilisé les zones automatiques, il suffit de modifier en une
seule fois dans le masque, Police et Couleur
"gérard" a écrit dans le message de news:
%23Rzz%


Bonjour
Merci Jean-Pierre mais je n'ai pas utilisé les zones automatiques... j'ai
un peu bricolé... sans trop de méthode
Une erreur de débutant !



Effectivement, la première chose à faire lorsqu'on crée une présentation
PowerPoint, est de définir la mise en forme dans le masque ainsi que le ou
les jeux de couleurs, ce qui permet après coup de faire très rapidement
des modifications.

Voici une macro pour corriger ton problème :

Sub couleurs()
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

Tu corriges le RGB en fonction de la couleur que tu souhaites.

Attention, cette macro modifie la couleur de tous les textes de ta
présentation. Si tu ne veux pas modifier tout, il faudra modifier la
macro... Si par exemple, tu as des textes de différentes couleurs et que
tu ne veux modifier que le rouge, il faudra ajouter une condition sur le
rouge :
If forme.TextFrame.TextRange.Font.Color.RGB = RGB(x, x, x) Then

Amicalement
Gérard






... encore merci pour ce script que je vais mettre en oeuvre mais la
prochaine fois jetravaillerais avec plus de méthode ! Peut-être vais-je
refaire mon montage... étant à la retraite j'ai "un peu" de temps !
Cordialement
Gérard