I couldn't get the background color manually or by code, but that does not
mean it can't be done, just that I don't know how. I did get it to delete by
code. See below.

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" & yy & xx
ActiveSheet.OLEObjects("newLabel").Delete
End Sub


"sune" wrote:



Hello

I try to insert some labels in a worksheet and it works but I can't
change BackStyle to fmBackStyletransparent.

I use this code to insert the labels
ActiveSheet.OLEObjects.Add(ClassType:="Forms.Label .1", Link:=False, _
DisplayAsIcon:=False, Left:=yy, Top:=xx, Width:=102.75, Height:=
_
69.75).Name = "newLabel" & yy & xx

After I insert them I need to set BackStyle to fmBackStyletransparent
and later, if it's possible, I want to delete them.
Is there solution for that?
Sune

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