Hello,

i use following code to add a togglebutton to the sheet:
Set objOle =
ActiveSheet.OLEObjects.Add(ClassType:="Forms.Toggl eButton.1", _
Left:=intLeft, Top:=intTop, Width:=intWidth, Height:=intHeight)
With objOle
..Object.Caption = "test"
End With

The problem is, that the caption doesn't update until, i click the
Button.
The same problem occurs with CommandButton.
Sometimes it works, but in most cases, this error occur.

Any ideas?
Thanks a lot,

Andreas

try adding

me.repaint

after changing the caption


--
--
---
ZZ [underground]
Semi-musico,cuasi-poeta y loco


wrote in message
oups.com...
Hello,

i use following code to add a togglebutton to the sheet:
Set objOle =
ActiveSheet.OLEObjects.Add(ClassType:="Forms.Toggl eButton.1", _
Left:=intLeft, Top:=intTop, Width:=intWidth, Height:=intHeight)
With objOle
.Object.Caption = "test"
End With

The problem is, that the caption doesn't update until, i click the
Button.
The same problem occurs with CommandButton.
Sometimes it works, but in most cases, this error occur.

Any ideas?
Thanks a lot,

Andreas

This may work on a userform, but Andreas is adding the object to a worksheet.

I was thinking

With objOle
.Object.Caption = "test"
End With
Application.screenupdating = false
application.screenupdating = true



But I don't know if that would work. His code worked fine for me.

zz wrote:

try adding

me.repaint

after changing the caption

--
--
---
ZZ [underground]
Semi-musico,cuasi-poeta y loco

wrote in message
oups.com...
Hello,

i use following code to add a togglebutton to the sheet:
Set objOle =
ActiveSheet.OLEObjects.Add(ClassType:="Forms.Toggl eButton.1", _
Left:=intLeft, Top:=intTop, Width:=intWidth, Height:=intHeight)
With objOle
.Object.Caption = "test"
End With

The problem is, that the caption doesn't update until, i click the
Button.
The same problem occurs with CommandButton.
Sometimes it works, but in most cases, this error occur.

Any ideas?
Thanks a lot,

Andreas


--

Dave Peterson

sorry, mea culpa , mea culpa , me sinner, i was working on a userform and
read only on the surface

sorry again

--
--
---
ZZ [underground]
Semi-musico,cuasi-poeta y loco




"Dave Peterson" wrote in message
...
This may work on a userform, but Andreas is adding the object to a
worksheet.

I was thinking

With objOle
.Object.Caption = "test"
End With
Application.screenupdating = false
application.screenupdating = true



But I don't know if that would work. His code worked fine for me.

zz wrote:

try adding

me.repaint

after changing the caption

--
--
---
ZZ [underground]
Semi-musico,cuasi-poeta y loco

wrote in message
oups.com...
Hello,

i use following code to add a togglebutton to the sheet:
Set objOle =
ActiveSheet.OLEObjects.Add(ClassType:="Forms.Toggl eButton.1", _
Left:=intLeft, Top:=intTop, Width:=intWidth, Height:=intHeight)
With objOle
.Object.Caption = "test"
End With

The problem is, that the caption doesn't update until, i click the
Button.
The same problem occurs with CommandButton.
Sometimes it works, but in most cases, this error occur.

Any ideas?
Thanks a lot,

Andreas


--

Dave Peterson