error with oleobjects.add
 

I'm trying to make a grid of commandbuttons on a spreadsheet but it is
generating this error message:
Can't enter break mode at this time
Then the code that follows is not not being executed (properly, at least)
and other errors seem to be arising as well (Variables not being assigned
values, etc.)

Here's the code I'm using to create the commandbuttons that seems to be
causing the problem:
On Error Resume Next
For b = 1 To aRows '
CurTop = StartTop + (VOffset * b)
For c = 1 To aCols
Application.DisplayAlerts = False
Worksheets(2).OLEObjects.Add ClassType:="Forms.CommandButton.1",
Link:=False _
, DisplayAsIcon:=False, Left:=StartLeft + (HOffset * c),
Top:=CurTop, Width:=60, Height:=57
Application.DisplayAlerts = True
If a = TotalItems Then
On Error GoTo 0
Exit Sub
End If
a = a + 1
Next c
Next b
On Error GoTo 0

Thanks,
Bert

error with oleobjects.add
 

Don't step through the code.

If you really have to step through it, don't step through that .oleobjects.add
line.

Instead, put a break point on the line above and the line below. And Run
between those lines--no stepping!



Bert wrote:

I'm trying to make a grid of commandbuttons on a spreadsheet but it is
generating this error message:
Can't enter break mode at this time
Then the code that follows is not not being executed (properly, at least)
and other errors seem to be arising as well (Variables not being assigned
values, etc.)

Here's the code I'm using to create the commandbuttons that seems to be
causing the problem:
On Error Resume Next
For b = 1 To aRows '
CurTop = StartTop + (VOffset * b)
For c = 1 To aCols
Application.DisplayAlerts = False
Worksheets(2).OLEObjects.Add ClassType:="Forms.CommandButton.1",
Link:=False _
, DisplayAsIcon:=False, Left:=StartLeft + (HOffset * c),
Top:=CurTop, Width:=60, Height:=57
Application.DisplayAlerts = True
If a = TotalItems Then
On Error GoTo 0
Exit Sub
End If
a = a + 1
Next c
Next b
On Error GoTo 0

Thanks,
Bert

--

Dave Peterson

error with oleobjects.add
 

Thanks for your reply; however,
If I put a break point after that--even in the code that calls this
subroutine, it generates the same error message. Once this code executes, I
cannot have a breakpoint without generating the message. Even a "Stop"
statement generates the error.
In fact, once the below code is executed, some code appears to be skipped
while other code runs sooner than code that appears earlier in the macro.

"Dave Peterson" wrote in message
...
Don't step through the code.

If you really have to step through it, don't step through that
.oleobjects.add
line.

Instead, put a break point on the line above and the line below. And Run
between those lines--no stepping!



Bert wrote:

I'm trying to make a grid of commandbuttons on a spreadsheet but it is
generating this error message:
Can't enter break mode at this time
Then the code that follows is not not being executed (properly, at least)
and other errors seem to be arising as well (Variables not being assigned
values, etc.)

Here's the code I'm using to create the commandbuttons that seems to be
causing the problem:
On Error Resume Next
For b = 1 To aRows '
CurTop = StartTop + (VOffset * b)
For c = 1 To aCols
Application.DisplayAlerts = False
Worksheets(2).OLEObjects.Add ClassType:="Forms.CommandButton.1",
Link:=False _
, DisplayAsIcon:=False, Left:=StartLeft + (HOffset * c),
Top:=CurTop, Width:=60, Height:=57
Application.DisplayAlerts = True
If a = TotalItems Then
On Error GoTo 0
Exit Sub
End If
a = a + 1
Next c
Next b
On Error GoTo 0

Thanks,
Bert

--

Dave Peterson

error with oleobjects.add
 

You may want to remove the "on error resume next" lines and see what is really
causing the trouble.

The only way I've seen that "can't enter break..." message is when I've been
stepping through the code.

I'm not sure what you're doing with these commandbuttons, but I've always found
the buttons from the forms toolbar much better behaved.

Bert wrote:

Thanks for your reply; however,
If I put a break point after that--even in the code that calls this
subroutine, it generates the same error message. Once this code executes, I
cannot have a breakpoint without generating the message. Even a "Stop"
statement generates the error.
In fact, once the below code is executed, some code appears to be skipped
while other code runs sooner than code that appears earlier in the macro.

"Dave Peterson" wrote in message
...
Don't step through the code.

If you really have to step through it, don't step through that
.oleobjects.add
line.

Instead, put a break point on the line above and the line below. And Run
between those lines--no stepping!



Bert wrote:

I'm trying to make a grid of commandbuttons on a spreadsheet but it is
generating this error message:
Can't enter break mode at this time
Then the code that follows is not not being executed (properly, at least)
and other errors seem to be arising as well (Variables not being assigned
values, etc.)

Here's the code I'm using to create the commandbuttons that seems to be
causing the problem:
On Error Resume Next
For b = 1 To aRows '
CurTop = StartTop + (VOffset * b)
For c = 1 To aCols
Application.DisplayAlerts = False
Worksheets(2).OLEObjects.Add ClassType:="Forms.CommandButton.1",
Link:=False _
, DisplayAsIcon:=False, Left:=StartLeft + (HOffset * c),
Top:=CurTop, Width:=60, Height:=57
Application.DisplayAlerts = True
If a = TotalItems Then
On Error GoTo 0
Exit Sub
End If
a = a + 1
Next c
Next b
On Error GoTo 0

Thanks,
Bert

--

Dave Peterson

--

Dave Peterson

error with oleobjects.add
 

The forms buttons could work, I think if I can change the color of the
buttons as I can with the commandbutton (.backcolor). Is there an
equivalent property of the forms buttons that I can set?
Thanks.

"Dave Peterson" wrote in message
...
You may want to remove the "on error resume next" lines and see what is
really
causing the trouble.

The only way I've seen that "can't enter break..." message is when I've
been
stepping through the code.

I'm not sure what you're doing with these commandbuttons, but I've always
found
the buttons from the forms toolbar much better behaved.

Bert wrote:

Thanks for your reply; however,
If I put a break point after that--even in the code that calls this
subroutine, it generates the same error message. Once this code
executes, I
cannot have a breakpoint without generating the message. Even a "Stop"
statement generates the error.
In fact, once the below code is executed, some code appears to be skipped
while other code runs sooner than code that appears earlier in the macro.

"Dave Peterson" wrote in message
...
Don't step through the code.

If you really have to step through it, don't step through that
.oleobjects.add
line.

Instead, put a break point on the line above and the line below. And
Run
between those lines--no stepping!



Bert wrote:

I'm trying to make a grid of commandbuttons on a spreadsheet but it is
generating this error message:
Can't enter break mode at this time
Then the code that follows is not not being executed (properly, at
least)
and other errors seem to be arising as well (Variables not being
assigned
values, etc.)

Here's the code I'm using to create the commandbuttons that seems to
be
causing the problem:
On Error Resume Next
For b = 1 To aRows '
CurTop = StartTop + (VOffset * b)
For c = 1 To aCols
Application.DisplayAlerts = False
Worksheets(2).OLEObjects.Add ClassType:="Forms.CommandButton.1",
Link:=False _
, DisplayAsIcon:=False, Left:=StartLeft + (HOffset * c),
Top:=CurTop, Width:=60, Height:=57
Application.DisplayAlerts = True
If a = TotalItems Then
On Error GoTo 0
Exit Sub
End If
a = a + 1
Next c
Next b
On Error GoTo 0

Thanks,
Bert

--

Dave Peterson

--

Dave Peterson

error with oleobjects.add
 

But you can change the font on the buttons from the Forms toolbar.

Maybe the better behavior is worth the change???

Or maybe you could use a shape from the drawing toolbar and format it the way
you want--or even your favorite picture?

Bert wrote:

The forms buttons could work, I think if I can change the color of the
buttons as I can with the commandbutton (.backcolor). Is there an
equivalent property of the forms buttons that I can set?
Thanks.

"Dave Peterson" wrote in message
...
You may want to remove the "on error resume next" lines and see what is
really
causing the trouble.

The only way I've seen that "can't enter break..." message is when I've
been
stepping through the code.

I'm not sure what you're doing with these commandbuttons, but I've always
found
the buttons from the forms toolbar much better behaved.

Bert wrote:

Thanks for your reply; however,
If I put a break point after that--even in the code that calls this
subroutine, it generates the same error message. Once this code
executes, I
cannot have a breakpoint without generating the message. Even a "Stop"
statement generates the error.
In fact, once the below code is executed, some code appears to be skipped
while other code runs sooner than code that appears earlier in the macro.

"Dave Peterson" wrote in message
...
Don't step through the code.

If you really have to step through it, don't step through that
.oleobjects.add
line.

Instead, put a break point on the line above and the line below. And
Run
between those lines--no stepping!



Bert wrote:

I'm trying to make a grid of commandbuttons on a spreadsheet but it is
generating this error message:
Can't enter break mode at this time
Then the code that follows is not not being executed (properly, at
least)
and other errors seem to be arising as well (Variables not being
assigned
values, etc.)

Here's the code I'm using to create the commandbuttons that seems to
be
causing the problem:
On Error Resume Next
For b = 1 To aRows '
CurTop = StartTop + (VOffset * b)
For c = 1 To aCols
Application.DisplayAlerts = False
Worksheets(2).OLEObjects.Add ClassType:="Forms.CommandButton.1",
Link:=False _
, DisplayAsIcon:=False, Left:=StartLeft + (HOffset * c),
Top:=CurTop, Width:=60, Height:=57
Application.DisplayAlerts = True
If a = TotalItems Then
On Error GoTo 0
Exit Sub
End If
a = a + 1
Next c
Next b
On Error GoTo 0

Thanks,
Bert

--

Dave Peterson

--

Dave Peterson

--

Dave Peterson