Syntax problem with code

TheMSsForum.com: The Microsoft Software Forum

Below is a macro I am testing. I am trying to create 26 command buttons,
starting with Commandbutton6, but a caption starting with number 1.
Something is wrong with the "Activesheet.OLEObject" line and I don't know
what.

Private Sub CommandButton2_Click()
Dim h, w, t, l As Long
Dim k As Integer
h = 21
w = 91.5
l = 50
t = 92
For k = 1 To 26
ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton." & k + 5,
Left = l, Top = t, Width = w, Height = h)
.Object.Caption = "Button " & k + 5
t = t + 38
If k = 7 Or k = 14 Or k = 20 Then
l = l + 145
t = 92
End If
Next k
End Sub

Can someone tell me what is wrong? Thanks

One other question. I have seen the syntax similar to what I show below.
If using this syntax, what is "newbutton" DIM as?

Set newbutton = Applicationsheet.OLEObject.Add(Forms.CommandButton....)

Thanks,
Les
Top

RE: Syntax problem with code by WLMPilot

WLMPilot
Sat Mar 15 14:07:00 CDT 2008

SORRY!. I reposted in the Programming section.

Les

"WLMPilot" wrote:

> Below is a macro I am testing. I am trying to create 26 command buttons,
> starting with Commandbutton6, but a caption starting with number 1.
> Something is wrong with the "Activesheet.OLEObject" line and I don't know
> what.
>
> Private Sub CommandButton2_Click()
> Dim h, w, t, l As Long
> Dim k As Integer
> h = 21
> w = 91.5
> l = 50
> t = 92
> For k = 1 To 26
> ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton." & k + 5,
> Left = l, Top = t, Width = w, Height = h)
> .Object.Caption = "Button " & k + 5
> t = t + 38
> If k = 7 Or k = 14 Or k = 20 Then
> l = l + 145
> t = 92
> End If
> Next k
> End Sub
>
> Can someone tell me what is wrong? Thanks
>
> One other question. I have seen the syntax similar to what I show below.
> If using this syntax, what is "newbutton" DIM as?
>
> Set newbutton = Applicationsheet.OLEObject.Add(Forms.CommandButton....)
>
> Thanks,
> Les
Top