shape en fond dégradé de deux couleur

[patricktoulon]

bonjour a tous
j'ai un trou de memoire comment on créée un dégradé de deux couleur dans une shape la couleur 2 est toujours absente

Private Sub creategrad_Click()
    With Worksheets(listetheme.Value)
        Set shap = .Shapes.AddShape(msoShapeRectangle, 0, 0, 100, 100)
        shap.Name = "fond"
        With shap.Fill
            .Visible = msoTrue
            .ForeColor.RGB = (vbred)
            .BackColor.RGB = (vbyellow)
            .TwoColorGradient 1,1
        End With
    End With
End Sub

puré je me nois dans un verre d'eau là

 

[ChTi160]

Bonsoir Patrick
j'ai récupéré une procédure que j'ai adapté qui semble mais je n'en sais rien répondre a la demande lol
ajoute un shape et le colore de deux couleurs !

With ActiveSheet.Shapes _
 .AddShape(Type:=msoShapeRectangle, _
 Left:=0, Top:=0, Width:=40, Height:=80).Fill
 .ForeColor.RGB = RGB(128, 0, 0)
 .BackColor.RGB = RGB(0, 170, 170)
 .TwoColorGradient Style:=msoGradientHorizontal, Variant:=1
End With

ca m'aura fait l'occasion de te saluer !
jean marie

 

[patricktoulon]

bonjour @ChTi160
et oui la tienne aussi la couleur 2 est remplacée par du blanc
y a un truc mais je ne m'en souviens plus

 

[patricktoulon]

bon j'ai fouillé dans mes archives et le pire c'est que je le savais!!!!! LOL
purré faut pas vieillir je vous le dit
l'astuce est on ne peut plus simple
il faut simplement changer l'ordre des instructions
l'instruction ...TwoColorGradient doit etre executée en premier

Private Sub creategrad_Click()
    With Worksheets(listetheme.Value)
        Set shap = .Shapes.AddShape(msoShapeRectangle, 0, 0, 100, 100)
        shap.Name = "fond"
        With shap.Fill
            .TwoColorGradient 1, 1
            .BackColor.RGB = (vbyellow)
            .ForeColor.RGB = (vbred)
            .Visible = msoTrue
        End With
    End With
End Sub

merci c'est résolu

 

[patricktoulon]

re
tiens @ChTi160 du coup j'ai mis a jour une de mes créations vieillotte

si tu veux des jolis userforms (voir même des beaux boutons)

ça serait bien que j'ai des retours sur 64bits aussi (bien que je pense qu'il ne devrait pas avoir de problème )

 

[ChTi160]

Re
Merci
Je vois ça dès que possible.
Jean marie
De mon téléphone.

 

[Staple1600]

Bonsoir le fil

En version élaguée
(histoire d'occuper mon confinement )

Sub a()
With ActiveSheet.Shapes.AddShape(6, 0, 0, 100, 100).Fill
.TwoColorGradient 1, 2: .ForeColor.RGB = vbRed: .BackColor.RGB = vbYellow
End With
End Sub

 

[patricktoulon]

bonsoir Staple mille six cents
oui l'essentiel c'est que l'instruction de gradient soit la première à être exécutée sinon walouwalou la 2d couleur bye bye!!