comment changer la texture de plusieurs graphiques en même temps
2 réponses
pellicacho
Bonjour,
Est il possible de changer la texture mais de plusieurs graphique en même
temps?
J'ai une 40aine de graphique dont je voudrais changer la couleur et texture
mais pour le faire un à la fois, ce n'est pas possible...
Merci
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
RaMa
Bonjour
Essaie ça
Sub ColorMesGraf() For Each g In ActiveSheet.ChartObjects g.Activate g.Select Selection.Fill.TwoColorGradient Style:=msoGradientHorizontal, Variant:=1 With Selection .Fill.Visible = True .Fill.ForeColor.SchemeColor = 45 .Fill.BackColor.SchemeColor = 12 End With Next End Sub
Salutations RaMa
"pellicacho" a écrit dans le message de news:
Bonjour, Est il possible de changer la texture mais de plusieurs graphique en même temps? J'ai une 40aine de graphique dont je voudrais changer la couleur et texture mais pour le faire un à la fois, ce n'est pas possible... Merci
Bonjour
Essaie ça
Sub ColorMesGraf()
For Each g In ActiveSheet.ChartObjects
g.Activate
g.Select
Selection.Fill.TwoColorGradient Style:=msoGradientHorizontal, Variant:=1
With Selection
.Fill.Visible = True
.Fill.ForeColor.SchemeColor = 45
.Fill.BackColor.SchemeColor = 12
End With
Next
End Sub
Salutations
RaMa
"pellicacho" <pellicacho@discussions.microsoft.com> a écrit dans le message
de news: 50A15F2F-17A5-4890-B4AC-ADB60DD2815A@microsoft.com...
Bonjour,
Est il possible de changer la texture mais de plusieurs graphique en même
temps?
J'ai une 40aine de graphique dont je voudrais changer la couleur et
texture
mais pour le faire un à la fois, ce n'est pas possible...
Merci
Sub ColorMesGraf() For Each g In ActiveSheet.ChartObjects g.Activate g.Select Selection.Fill.TwoColorGradient Style:=msoGradientHorizontal, Variant:=1 With Selection .Fill.Visible = True .Fill.ForeColor.SchemeColor = 45 .Fill.BackColor.SchemeColor = 12 End With Next End Sub
Salutations RaMa
"pellicacho" a écrit dans le message de news:
Bonjour, Est il possible de changer la texture mais de plusieurs graphique en même temps? J'ai une 40aine de graphique dont je voudrais changer la couleur et texture mais pour le faire un à la fois, ce n'est pas possible... Merci
RaMa
Pti't erreur
Sub ColorMesGraf() For Each g In ActiveSheet.ChartObjects g.Activate ActiveChart.ChartArea.Select With Selection .Fill.TwoColorGradient Style:=msoGradientHorizontal, Variant:=1 .Fill.Visible = True .Fill.ForeColor.SchemeColor = 45 .Fill.BackColor.SchemeColor = 12 End With Next End Sub
RaMa
"RaMa" a écrit dans le message de news: %23%
Bonjour
Essaie ça
Sub ColorMesGraf() For Each g In ActiveSheet.ChartObjects g.Activate g.Select Selection.Fill.TwoColorGradient Style:=msoGradientHorizontal, Variant:=1 With Selection .Fill.Visible = True .Fill.ForeColor.SchemeColor = 45 .Fill.BackColor.SchemeColor = 12 End With Next End Sub
Salutations RaMa
"pellicacho" a écrit dans le message de news:
Bonjour, Est il possible de changer la texture mais de plusieurs graphique en même temps? J'ai une 40aine de graphique dont je voudrais changer la couleur et texture mais pour le faire un à la fois, ce n'est pas possible... Merci
Pti't erreur
Sub ColorMesGraf()
For Each g In ActiveSheet.ChartObjects
g.Activate
ActiveChart.ChartArea.Select
With Selection
.Fill.TwoColorGradient Style:=msoGradientHorizontal, Variant:=1
.Fill.Visible = True
.Fill.ForeColor.SchemeColor = 45
.Fill.BackColor.SchemeColor = 12
End With
Next
End Sub
RaMa
"RaMa" <rmarceauPas2Spam@free.fr> a écrit dans le message de news:
%23%23UhedaIFHA.2420@TK2MSFTNGP14.phx.gbl...
Bonjour
Essaie ça
Sub ColorMesGraf()
For Each g In ActiveSheet.ChartObjects
g.Activate
g.Select
Selection.Fill.TwoColorGradient Style:=msoGradientHorizontal, Variant:=1
With Selection
.Fill.Visible = True
.Fill.ForeColor.SchemeColor = 45
.Fill.BackColor.SchemeColor = 12
End With
Next
End Sub
Salutations
RaMa
"pellicacho" <pellicacho@discussions.microsoft.com> a écrit dans le
message de news: 50A15F2F-17A5-4890-B4AC-ADB60DD2815A@microsoft.com...
Bonjour,
Est il possible de changer la texture mais de plusieurs graphique en même
temps?
J'ai une 40aine de graphique dont je voudrais changer la couleur et
texture
mais pour le faire un à la fois, ce n'est pas possible...
Merci
Sub ColorMesGraf() For Each g In ActiveSheet.ChartObjects g.Activate ActiveChart.ChartArea.Select With Selection .Fill.TwoColorGradient Style:=msoGradientHorizontal, Variant:=1 .Fill.Visible = True .Fill.ForeColor.SchemeColor = 45 .Fill.BackColor.SchemeColor = 12 End With Next End Sub
RaMa
"RaMa" a écrit dans le message de news: %23%
Bonjour
Essaie ça
Sub ColorMesGraf() For Each g In ActiveSheet.ChartObjects g.Activate g.Select Selection.Fill.TwoColorGradient Style:=msoGradientHorizontal, Variant:=1 With Selection .Fill.Visible = True .Fill.ForeColor.SchemeColor = 45 .Fill.BackColor.SchemeColor = 12 End With Next End Sub
Salutations RaMa
"pellicacho" a écrit dans le message de news:
Bonjour, Est il possible de changer la texture mais de plusieurs graphique en même temps? J'ai une 40aine de graphique dont je voudrais changer la couleur et texture mais pour le faire un à la fois, ce n'est pas possible... Merci
