cs_pafacile
Messages postés30Date d'inscriptionvendredi 27 juin 2008StatutMembreDernière intervention22 juillet 2008
-
14 juil. 2008 à 16:12
cs_pafacile
Messages postés30Date d'inscriptionvendredi 27 juin 2008StatutMembreDernière intervention22 juillet 2008
-
14 juil. 2008 à 21:03
Bonjour à tous,
J'ai un Macro qui trace des graphiques dans excel 2003.
Je souhaite rajouter quelques ligne de code pour lui demander de mettre ma courbe en noir et en gras...
Voici ce que je plog:
ActiveChart.SeriesCollection.Select
With Selection.Border
.ColorIndex = 1
.Weight = xlThin
.LineStyle = xlContinuous
End With
With Selection
.MarkerBackgroundColorIndex = xlAutomatic
.MarkerForegroundColorIndex = xlAutomatic
.MarkerStyle = xlAutomatic
.Smooth = True
.MarkerSize = 5
.Shadow = False
End With
bigfish_le vrai
Messages postés1835Date d'inscriptionvendredi 13 mai 2005StatutMembreDernière intervention20 novembre 201315 14 juil. 2008 à 20:29
Salut,
Si tu vas dans le menu Outils/Options puis l'onglet couleur tu veras alors une palette de 56 couleurs qui sont les couleurs disponiblent dans excel. pour ne pas etre limité, tu peux remplacer .ColorIndex 1 par .Color RGB(0,0,0) pour du noire. la fonction RGB fonctionne comme suit : RGB(Rouge,vert,bleu) ou chacune de ces couleur peu varier de 0 a 255. Blanc -> RGB(255,255,255)
With Selection.Border
.Color = RGB(0,0,0) 'noire
.Weight = xlThick 'ligne epaisse
.LineStyle = xlContinuous 'ligne continu
End With
si tu veux connaitre toute les constantes d'epaisseur(Weight) ou de type de ligne(LineStyle) place le cursseur sur l'une de ces option et utilise la touche F1 de ton clavier.
cs_pafacile
Messages postés30Date d'inscriptionvendredi 27 juin 2008StatutMembreDernière intervention22 juillet 2008 14 juil. 2008 à 20:23
Merci mortalino,
Ok, oui cela fonctionne pour la couleur: la courbe est en noir maintenant. Cependant cela ne grossi pas son trait... peut être que je n'utilise pas la bonne commande...
Cette partie du code ne semble servir à rien...:
With Selection
.MarkerBackgroundColorIndex = xlAutomatic
.MarkerForegroundColorIndex = xlAutomatic
.MarkerStyle = xlAutomatic
.Smooth = True
.MarkerSize = 5
.Shadow = False
End With
Comment demander à excel de mettre le trait plus gras?
Encore merci,