VBA - mise en forme de graphique

[Nicole05]

Hello à tous,

Je rencontre quelques problèmes en ce qui concerne la mise en forme d'un graphique via VBA.

Voici le code déjà réalisé :
Sub GraphiqueLS()
Dim SourceGraphique As Range

On Error Resume Next

Range("A:A,B:B,G:H").Select = SourceGraphique
'
Charts.Add
ActiveChart.SetSourceData Source:=Range(SourceGraphique)
ActiveChart.ChartType = xlLine
ActiveChart.Location Where:=xlLocationAsObject, Name:="Feuil1"
'
With ActiveChart
.Axes(xlCategory).TickLabelPosition = xlLow
.SeriesCollection(1).ChartType = xlLineMarkers
.Axes(xlValue).HasMajorGridlines = True
.Axes(xlValue).MajorGridlines.Select
End With
'
ActiveChart.SeriesCollection(1).Border.Color = RGB(79, 129, 189)
ActiveChart.SeriesCollection(2).Border.Color = RGB(23, 55, 94)
ActiveChart.SeriesCollection(3).Border.Color = RGB(127, 127, 127)

J'aimerais réaliser les choses suivantes :
- Modifier la largeur des séries
- Modifier l'alignement des données de l'axe horizontal
- Modifier le quadrillage horizontal du graphique (tirets)
- Insérer un titre
- Remplir l'extérieur du graphique en gris

L'enregistreur de macro ne marche pas sur Office 2007, j'ai donc de la peine à réaliser la mise en forme.

Merci d'avance pour votre aide
Nicole 05

 

[mutzik]

Re : VBA - mise en forme de graphique

Bonjour,

si tu pouvais envoyer ton fichier, cela nous serait bigrement plus facile

 

[Nicole05]

Re : VBA - mise en forme de graphique

Désolée, mais je n'arrive pas à joindre le fichier, la taille est trop grande et je n'arrive pas à la diminuer...

 

[noviceAG]

Re : VBA - mise en forme de graphique

Bonsoir Nicole05, mutzik, le Forum,
Tu peux utiliser ceci :
Cijoint.fr - Service gratuit de dépôt de fichiers
Bonne soirée à tous.

 

[Nicole05]

Re : VBA - mise en forme de graphique

Merci pour le lien!

Voici donc mon fichier :
Cijoint.fr - Service gratuit de dépôt de fichiers

Il contient le résultat auquel j'aimerais arriver, si vous avez d'autres suggestions pour la mise en forme, n'hésitez pas!

Merci d'avance pour votre aide.
Nicole05