Macro changer taille couleur graphique

Question

Bonjour,

Je cherche à créer une macro qui puisse modifier la mise en forme d'un graphique :
- taille du graphique,
- couleur des séries de données.

Merci d'avance !

cs_Jack · Answer

Salut
On suppoose que tu es sous Excel ?
As-tu essayé d'enregistrer une macro pendant que tu créais ou modifiais ton graphique ?

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

carlos33 · Answer

Merci de ta réponse.
Oui je suis sur Excel.

J'ai lancé l'enregistreur automatique de macros et j'ai modifié la couleur du graphique. Mais il ne m'a pas pris en compte la modification de la couleur.
Voici le code que j'obtiens :

Sub changercouleur()
    ActiveSheet.ChartObjects("Graphique 1").Activate
    ActiveChart.SeriesCollection(1).Select
End Sub

Merci

cs_Jack · Answer

Ok, mais ça, ça ne fait que sélectionner la série.
Manque juste le changement de couleur, lol, genre
    With Selection.Border
        .ColorIndex = 3
        .Weight = xlThin
        .LineStyle = xlContinuous
    End With

carlos33 · Answer

Merci, c'est ce que je voulais. Par contre, comme il s'agit d'un diagramme à barres, ça change la couleur du contour (Border).
Comment changer les autres couleurs : arrière-plan du graphique, couleur des bandes, etc ?
MERCI !

cs_Jack · Answer

Je te l'ai dit : Enregistre une macro pendant que tu le fais à la main et tu auras le code tout fait.
N'attends pas qu'on te fournisse des bouts de code, essaye de comprendre ces lignes.

carlos33 · Answer

J'ai réussi ce que je voulais faire.

Je t'ai expliqué que ça n'avait pas marché à la main.
Et justement, je cherchais à comprendre le code.
- Selection.border : c'est le bord des barres de mon histogramme
- selection.interior : il s'agit de la couleur de la barre.


Sub changercouleur1()
    ActiveSheet.ChartObjects("Graphique 1").Activate
    ActiveChart.SeriesCollection(1).Select
    With Selection.Interior
        .ColorIndex = 3
    End With
End sub


Merci de tes réponses !

Macro changer taille couleur graphique

6 réponses

Votre réponse

Discussions similaires