Label automatique non transparent

[Eric D]

Bonjour à toutes et tous,

Voilà mon soucis: Quand je crée un label 'manuellement' on peut mettre la propriété Backstyle = fmBackStyleTransparent
par contre si il est créé automatiquement:
Dim Obj As OLEObject
Set Obj = Sheets('Feuil1').OLEObjects.Add
(ClassType:='Forms.label.1', _
Link:=False, DisplayAsIcon:=False, Left:=74.25, Top:=32.25, Width:=142.5, Height:=396)

With Obj
.Name = 'Image1'
.object.BackStyle = fmBackStyleTransparent
End With
celui-ci n'est pas transparent mais opaque malgrés la définition du Backstyle (avec ou sans .Object).
Si vous avez une solution ou une explication du phénomene, je suis preneur.Merci d'avance et bonne journée.

 

[MichelXld]

bonjour

j'espere que ce lien pourra t'aider

Lien supprimé

(voir le message du 04/05/2006 18:25)


bon week end
MichelXld

 

[Eric D]

Bonjour Michel,

Désolé je n'avais pas vu ce lien ds ma recherche. Un grand merci pour ton aiguillage car c'est Nickel Chrome.

Bon Week end à toi aussi.
Eric D

 

[Tabarnac]

Bonjour à toutes et tous,

Voilà mon soucis: Quand je crée un label 'manuellement' on peut mettre la propriété Backstyle = fmBackStyleTransparent
par contre si il est créé automatiquement:
Dim Obj As OLEObject
Set Obj = Sheets('Feuil1').OLEObjects.Add
(ClassType:='Forms.label.1', _
Link:=False, DisplayAsIcon:=False, Left:=74.25, Top:=32.25, Width:=142.5, Height:=396)

With Obj
.Name = 'Image1'
.object.BackStyle = fmBackStyleTransparent
End With
celui-ci n'est pas transparent mais opaque malgrés la définition du Backstyle (avec ou sans .Object).
Si vous avez une solution ou une explication du phénomene, je suis preneur.Merci d'avance et bonne journée.

Bonjour Éric, je rencontre le même problème que Michel Xld t'a aidé à résoudre, cependant le lien qu'il t'avait soumis n'existe plus. Peux-tu m'aider ?

 

[Tabarnac]

bonjour

j'espere que ce lien pourra t'aider

Lien supprimé

(voir le message du 04/05/2006 18:25)


bon week end
MichelXld

Bonjour MichelXld, J'ai le même soucis qu'ÉricD (13 mai 2006) a qui tu avais soumis un lien aujourd'hui supprimé.
T'es-t-il possible de me le communiquer s'il te plaît ?
Merci !

 

[patricktoulon]

Bonjour

Dim Obj As OLEObject
Set Obj = Sheets("Feuil1").OLEObjects.Add(ClassType:="Forms.label.1", Link:=False, DisplayAsIcon:=False, Left:=74.25, Top:=32.25, Width:=142.5, Height:=396)
ActiveSheet.Shapes(Obj.Name).Fill.Transparency = 1
With Obj:  .Activate: .Object.BackStyle = 0: End With

 

[Tabarnac]

Bonjour Patrick, merci pour ta réponse.
Je l'ai testée dans le volet d'exécution, et cela fonctionne parfaitement.

J'avais trouvé ces possibilités :
Conteneur_Étiquette.Interior.ColorIndex = 0
Conteneur_Étiquette.Interior.Color = xlNone
Conteneur_Étiquette.Interior.Pattern = xlNone
où Conteneur_Étiquette est mon objet OLE contenant un "Forms.Label.1".

Merci encore, et bonne journée ! 🙂