Dégradé de 2 couleurs

M

MichelXld

XLDnaute Barbatruc

• 17 Septembre 2010

• #2

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):

Code:

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

 

Vote positif 0 Vote négatif

L

ledaf

XLDnaute Junior

• 20 Septembre 2010

• #3

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?

 

Vote positif 0 Vote négatif

L

ledaf

XLDnaute Junior

• 20 Septembre 2010

• #4

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?

 

Pièces jointes

• test.xls

  25 KB · Affichages: 111
• test.xls

  25 KB · Affichages: 112
• test.xls

  25 KB · Affichages: 121

Vote positif 0 Vote négatif

L

ledaf

XLDnaute Junior

• 20 Septembre 2010

• #5

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

 

Vote positif 0 Vote négatif

M

MichelXld

XLDnaute Barbatruc

• 20 Septembre 2010

• #6

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?

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

YANN-56

XLDnaute Barbatruc

• 20 Septembre 2010

• #7

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

 

Vote positif 0 Vote négatif