insert label in worksheet

  • Thread starter Thread starter sune
  • Start date Start date
S

sune

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
 
To set it manually, you need to be in design mode. Click the icon with the
triangle and ruler. Then right click the label and select Format Object,
then click on the Colors and Lines tab. To delete the label manually, you
will also need to be in design mode.
 
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
 
Thanks for your help but I still need to change
backstyle = fmBackStyleTransparent

Someone know how to do that?

Sune
 
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
 
P.S. The message box is only to pause the macro so you can see the color.
It is not essential to the code.
 
Back
Top