Shape translucide

JNP

XLDnaute Barbatruc

• 26 Juillet 2010

• #2

Re : Shape translucide

Bonsoir Paricia25 😎,
Si tu veux parler de sans fond

Code:

Selection.ShapeRange.Fill.Visible = msoFalse

Si par contre tu veux gérer de la transparence

Code:

With Selection.ShapeRange.Fill
        .Visible = msoTrue
        .Transparency = 0.5
        .Solid
End With

Devrait fonctionner sous 2007, avant, je ne garantie rien 😛...
Bonne soirée 😎

 

Vote positif 0 Vote négatif

P

Patricia25

Guest

• 26 Juillet 2010

• #3

Re : Shape translucide

Salut JNP ! Merci pour ta réponse très rapide !!
Effectivement, j'ai oublié de préciser je travaille sous 2007 (en dehors du boulot 😉 ).

C'est ton deuxième code qui me conviendrait, mais pour la première ligne (With Selection.ShapeRange.Fill) Excel me met une erreur d'exécution (propriété ou méthode non gérée par cet objet).
Et si je remplace cette ligne, par mes lignes de code, il bloque sur le .Transparency = 0.5 avec la même erreur ^^

😱

Y'a-t-il une solution ? Ne serait ce qu'un tout petit espoir 😱 ?

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 26 Juillet 2010

• #4

Re : Shape translucide

Re 🙂,
Vu comme ça, chez moi, ça marche

Code:

With ActiveSheet.Rectangles.Add(Cells(1, 1).Left, Cells(1, 1).Top, Cells(1, 1).Width, Cells(1, 1).Height)
    With .ShapeRange.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(51, 153, 255)
        .Transparency = 0.5
        .Solid
    End With
    With .Border
        .LineStyle = 1
        .Weight = 1
        .ColorIndex = 41
    End With
End With

Bonne soirée 😎

 

Vote positif 0 Vote négatif

P

Patricia25

Guest

• 27 Juillet 2010

• #5

Re : Shape translucide

Merci JNP !
Je teste ce code dès que je rentre du travail (ici je suis en 2003) !
Je te retiens au courant 😉😛

 

Vote positif 0 Vote négatif

P

Patricia25

Guest

• 27 Juillet 2010

• #6

Re : Shape translucide

Super JNP !!!! Encore merci ça marche parfaitement 😛
MERCI 😀

 

Vote positif 0 Vote négatif