Dégradé de 2 couleurs

[ledaf]

Bonjour,

Voici le code que j'ai utilisé:

  Selection.ShapeRange.Fill.ForeColor.SchemeColor = 11
    Selection.ShapeRange.Fill.BackColor.SchemeColor = 10
    Selection.ShapeRange.Fill.TwoColorGradient msoGradientHorizontal, 1

Je souhaitrai avoir un dégradé de couleur, ce que j'ai actuellement, mais avec une couleur qui prédomine.
Comment puis-je m'y prendre?

Je vous remercie

 

[MichelXld]

Re : Dégradé de 2 couleurs

bonsoir,

Si j'ai bien compris ta demande, il faut utiliser la propriété GradientStops pour définir le point de fin du dégradé (valeur entre 0 et 1):

Dim Obj As Shape
 
Set Obj = ActiveSheet.Shapes(1)
 
With Obj.Fill
    .ForeColor.SchemeColor = 11
    .BackColor.SchemeColor = 10
    .TwoColorGradient msoGradientHorizontal, 1
    .GradientStops.Item(1).Position = 0.7
End With

bonne soirée
michel

 

[ledaf]

Re : Dégradé de 2 couleurs

Bonjour,

Merci pour ta réponse mais j'ai l'impression qu'Excel 2003 ne connaît pas cette propriété.
Il me met une "Erreur d'exécution 438".

Y-a-t-il une option à débloquer?

 

[ledaf]

Re : Dégradé de 2 couleurs

Ce que je voudrai exactement , c'est qu'au niveau 50 il y ait un peu plus de vert.
Est-ce possible?

Ci-joint mon fichier?

 

[ledaf]

Re : Dégradé de 2 couleurs

J'utilise une méthode en faisant varier 2 rectangles mais après il exite peut être d'autres façons de faire.
N'hésitez je suis preneur, car j'ai très très peu de temps pour trouver une solution.

Je vous remercie

 

[MichelXld]

Re : Dégradé de 2 couleurs

Bonjour,

Merci pour ta réponse mais j'ai l'impression qu'Excel 2003 ne connaît pas cette propriété.
Il me met une "Erreur d'exécution 438".

Y-a-t-il une option à débloquer?

Je ne dispose pas d'Excel 2003, mais est ce que tu peux déja le faire manuellement sans macro ? Si ce n'est pas le cas, ça ne fonctionne ra pas plus par macro.

bonne soirée
michel

 

[YANN-56]

Re : Dégradé de 2 couleurs

Bonsoir ledaf, Michel, et à ceux qui passeront par ici,

Pourquoi n'es-tu pas resté sur ton Fil initial?

https://www.excel-downloads.com/threads/barre-de-defilement.149049/

Ceci dit, sans être vexé de ne pas avoir eu de réaction de ta part
suite à l'exemple que je t'avais envoyé.

Même quand cela ne satisfait pas; il est bien de savoir le dire!

Amicalement

Yann