set label text of controlformat

[hoho sklo]

dim lbl as controlformat.label
set lbl=activesheet.shapes("Label1")
lbl.text="abcd"

this code do not work..
How can I do work?



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

 

[ShaneDevenshire]

Hi,

You might try this or some variation of it

ActiveSheet.Shapes("Label1").Select
Selection.Characters.Text = "abcd"
Range("F10").Select

 

[Mauro Gamberini]

Private Sub m()
Dim lbl As Shape
With Me
Set lbl = .Shapes("Label 8")
lbl.Select
Selection.Characters.Text = "Pippo"
Set lbl = Nothing
End With
End Sub

 

[hoho sklo]

thanks, but i want to do not use the select method.
namely,,,

lbl.value="dddddddd"

but this code not work.

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

 

[Peter T]

I'm guessing Label1 is a Label from the Controls toolbox menu, an ActiveX
control. If so try this -

Dim ole As OLEObject
Set ole = ActiveSheet.OLEObjects("Label1")
ole.Object.Caption = "hello"

Regards,
Peter T

 

[hoho sklo]

thanks, but, i want to do label control of controlformat..
oleobject is not...

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

 

[Peter T]

Describe what you mean by "label control of controlformat"

If the object is on a sheet, which toolbar did you use to create it.

Regards,
Peter T