Code VBA pour mettre un label transparent

[asgeir]

Bonjour à tous,

Je créé automatiquement un label comme ceci :
Set lbl1 = ActiveSheet.OLEObjects.Add(ClassType:='Forms.Label.1')
With lbl1
.ShapeRange.ZOrder msoSendToBack
.Name = 'Label1'
.Object.Caption = ''
.Object.BackStyle = 0
End With

Mais voilà je voudrais qu'il me le mette en transparent, ce qui aurait dû être fait avec '.Object.BackStyle = 0'.

Mais réalité il ne l'a pas mis en transparent, malgré que la propriété BackStyle soit bien à 0. Et plus moyen de le mettre en transparent à la main.

Y-a-t-il une propriété que j'aurais oublié de changer, ou une autre solution à ce problème ?

Merci à tous

 

[excalibur]

bonjour asgeir , le forum essaie ce code lbl1.BackStyle = fmBackStyleTransparent ' salutations

 

[asgeir]

Merci pour avoir pris le temps de m'aider, mais malheureusement cette solution ne fonctionne pas.
Tout d'abord la ligne lbl1.BackStyle = fmBackStyleTransparent m'affiche :
'propriété ou méthode non gérée par cette objet'

je suis obligé de mettre lbl1.Object.BackStyle = fmBackStyleTransparent
Ca ne plante pas, mais ca m'affiche toujours le label en opaque, malgrè que dans les propriétés du label ce soit bien fmBackStyleTransparent d'affiché !

salutations