Rendre textBox transparente

[thomasly@neuf.fr]

Bonjour,


Voici mon petit problème :

Si j'insère des zones de texte sur la feuille manuellement et j'exécute le code suivante :

Dim Lbl As OLEObject

For Each Lbl In ActiveSheet.OLEObjects
If Lbl.progID = "Forms.TextBox.1" Then

Lbl.Object.BorderStyle = fmBorderStyleNone
Lbl.Object.SpecialEffect = fmSpecialEffectFlat
Lbl.Object.BackStyle = fmBackStyleTransparent
End If
Next Lbl

les zones de texte sont transparantes


Alors que si j'insère les zones de texte par code :

ActiveSheet.OLEObjects.Add(ClassType:="Forms.TextBox.1", Link:=False, _
DisplayAsIcon:=False, Left:=300, Top:=100, Width:=150, Height _
:=20).Select

les zones de texte ne sont pas transparentes mais avec le fond blanc !!


Quelqu'un peut m'expliquer ?



Merci de vos réponses

 

[thomasly@neuf.fr]

Re : Rendre textBox transparente

Voici la réponse :

Il faut ajouter ce code avec le code d'onsertion
Selection.ShapeRange.Fill.Visible = msoFalse