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
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
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
Si tu as utilisé les zones automatiques, il suffit de modifier en une seule
fois dans le masque, Police et Couleur
"gérard" <ge_la@wanadoo.fr> a écrit dans le message de news:
%23Rzz%23msWKHA.408@TK2MSFTNGP04.phx.gbl...
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
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
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
"jpforestier" <jean-pierre.forestier@worldonline.fr> a écrit dans le message
de news: OhdS2htWKHA.4068@TK2MSFTNGP06.phx.gbl...
Si tu as utilisé les zones automatiques, il suffit de modifier en une
seule fois dans le masque, Police et Couleur
"gérard" <ge_la@wanadoo.fr> a écrit dans le message de news:
%23Rzz%23msWKHA.408@TK2MSFTNGP04.phx.gbl...
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
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
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
Bonjour,
gérard a exprimé avec précision :
"jpforestier" <jean-pierre.forestier@worldonline.fr> a écrit dans le message
de news: OhdS2htWKHA.4068@TK2MSFTNGP06.phx.gbl...
Si tu as utilisé les zones automatiques, il suffit de modifier en une seule
fois dans le masque, Police et Couleur
"gérard" <ge_la@wanadoo.fr> a écrit dans le message de news:
%23Rzz%23msWKHA.408@TK2MSFTNGP04.phx.gbl...
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
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
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
"Circé" <circe@aea.gr> a écrit dans le message de news:
%23i%23T%23VuWKHA.220@TK2MSFTNGP02.phx.gbl...
Bonjour,
gérard a exprimé avec précision :
"jpforestier" <jean-pierre.forestier@worldonline.fr> a écrit dans le
message de news: OhdS2htWKHA.4068@TK2MSFTNGP06.phx.gbl...
Si tu as utilisé les zones automatiques, il suffit de modifier en une
seule fois dans le masque, Police et Couleur
"gérard" <ge_la@wanadoo.fr> a écrit dans le message de news:
%23Rzz%23msWKHA.408@TK2MSFTNGP04.phx.gbl...
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
"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