Well, I could not find a way to change the BackStyle to Opaque or
Transparent, but here is the method to put a color in it.

Sub dl()
ActiveSheet.OLEObjects.Add(ClassType:="Forms.Label .1", Link:=False, _
DisplayAsIcon:=False, Left:=yy, Top:=xx, Width:=102.75, _
Height:=69.75).Name = "newLabel"
For Each obj In Sheets(1).OLEObjects
Next
With Sheets(1).OLEObjects("newLabel").Object
.BackColor = RGB(25, 125, 255)
End With
MsgBox "Observe"
Sheets(1).OLEObjects("newLabel").Delete
End Sub


"sune" wrote:



Thanks for your help but I still need to change
backstyle = fmBackStyleTransparent

Someone know how to do that?

Sune

*** Sent via Developersdex http://www.developersdex.com ***