Couleurs dégradées en bordure

Staple1600

XLDnaute Barbatruc

• 22 Avril 2015

• #2

Re : Couleurs dégradées en bordure

Bonjour à tous

Celeborn61 à dit:

Je suis preneur de tous début de piste pour la solution.

Cliquez pour agrandir...

Ce lien n'existe plus

 

Vote positif 0 Vote négatif

Celeborn61

XLDnaute Occasionnel

• 22 Avril 2015

• #3

Re : Couleurs dégradées en bordure

Merci Staple,
lol

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 22 Avril 2015

• #4

Re : Couleurs dégradées en bordure

Re

Ce n'était pas une blague mais une question.
(Dans laquelle se trouvait une suggestion: à savoir regarder en long et en large l'aide en ligne concernant les Shapes)

 

Vote positif 0 Vote négatif

Celeborn61

XLDnaute Occasionnel

• 25 Avril 2015

• #5

Re : Couleurs dégradées en bordure

Salut Staple,
Non seulement j'ai lu et relu toutes les aides, en lignes, intégrées, en long et en large, de haut en bas, et de gauche à droite, mais j'ai réalisé un tas de recherche sur les forums, sur MSDN et toutes les idées qui me sont venues.
Ce n'est qu'a court que j'ai posté ici.

 

Dernière édition: 25 Avril 2015

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 25 Avril 2015

• #6

Re : Couleurs dégradées en bordure

Bonjour à tous

Celeborn61
Tu étais donc tombé sur Ce lien n'existe plus ?
En investiguant le web anglophone sur Gradient , on devrait finir par avancer, non ?

EDITION: salut tatiak 😉 désolé pour la collision mais on suit la même piste (lol)

Code:

Sub testDegrade()Dim oShp As Shape
Set oShp = ActiveSheet.Shapes("Rectangle 1")
    With oShp
        .Fill.Transparency = 0.25
        .Fill.Visible = msoTrue
        .Fill.ForeColor.SchemeColor = 53
        .Fill.BackColor.SchemeColor = 54
        .Fill.TwoColorGradient msoGradientHorizontal, 2
        .Fill.GradientStops(2).Transparency = 1
    End With
End Sub

Mais il semble que c'est sur les bordures des shapes que le dégradé doit s'appliqué, non ?
(en tout cas c'est ce que souhaites Celeborn61, non ?)

 

Dernière édition: 25 Avril 2015

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 26 Avril 2015

• #7

Re : Couleurs dégradées en bordure

salut

Staple1600 à dit:

Mais il semble que c'est sur les bordures des shapes que le dégradé doit s'appliqué, non ?
(en tout cas c'est ce que souhaites Celeborn61, non ?)

Cliquez pour agrandir...

pour ne pas te laisser sans réponse 😉, oui pour ce que j'en ai compris (et testé sans résultat sur les bords).
Au pis aller, en doublant la forme, ça coule de source, non ?

 

Pièces jointes

• Bordure dégradée.xlsm

  15.6 KB · Affichages: 40

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 26 Avril 2015

• #8

Re : Couleurs dégradées en bordure

Bonjour à tous, Si...😉

Par simple curiosité VBAistique, j'aimerai bien qu'on trouve comment piloter par VBA ce qu'on voit ci-dessous
Ce que fait la main, VBA peut le faire, non ?

NB: Bien vu ta ruse, Si...😉. Mais ce n'est qu'un biais.
Qui saura faire un dégradé du bord par VBA ? Hein! Qui saura, qui saura
(Rendors toi, Mike)

 

Dernière édition: 26 Avril 2015

Vote positif 0 Vote négatif

Celeborn61

XLDnaute Occasionnel

• 26 Avril 2015

• #9

Re : Couleurs dégradées en bordure

Salut,

Merci à tous pour vos recherches, mais vous ne répondez tous qu'a des dégradés de fond et non de bordures.
Tartiak, ton carré reste avec la bordure définit par défaut.
Staple, ton programme agit sur le fond, .fill, pas sur la bordure.
Je sais complétement gérer les dégradés de fond, de 1 à 255 couleurs, ce sont les dégradés sur les bordures qui me pose questions.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 26 Avril 2015

• #10

Re : Couleurs dégradées en bordure

Re

Celeborn61
Oui j'ai bien compris comme le prouve ma copie d'écran de mon précédent message, non ? 😉

 

Vote positif 0 Vote négatif

Celeborn61

XLDnaute Occasionnel

• 26 Avril 2015

• #11

Re : Couleurs dégradées en bordure

Salut,

Désolé Staple, nous nous sommes croisé. Tu as parfaitement saisi mon soucis.
Si... C'est très original ta solution, lol, mais ça ne m'apporte rien, j'ai bien trop de forme à travailler.

En tous les cas, merci à tous.

 

Vote positif 0 Vote négatif