Macro que inserte varios optionbuttons

[francolaca]

gracias abraham si funciona tu codigo y muy bien. Pero como haces si al metodo Add quieres pasarle alguna de las propiedades , Left, Top, Width o Height utilizando variables?????

te lo digo porque mi codigo sigue sin funcionar , aca te lo dejo para que lo chekes:


Sub NoFunciona()

Dim ranRondaApuestasCuerpoGris As Range
Dim i As Integer

Set ranRondaApuestasCuerpoGris = Range("A1:B8")

For i = 0 To i = 3

ActiveSheet.OLEObjects.Add(ClassType:="Forms.Optio nButton.1", _
Left:=ranRondaApuestasCuerpoGris.Left, Top:=ranRondaApuestasCuerpoGris.Top + _
ranRondaApuestasCuerpoGris.Height * i / 4, _
Width:=ranRondaApuestasCuerpoGris.Width, _
Height:=ranRondaApuestasCuerpoGris.Height * 0.25).Select

Next i

End Sub

Fijate que solo agrega el primer optionbutton y los otros nada, simplemente no aparesen!!!!!!

El programa se ejecuta pero solo aparece el primer comando. La verdad no se por que no funciona me ayudas ?????

Ahora fijate que esto si funciona:

Sub SiFunciona()

Dim ranRondaApuestasCuerpoGris As Range
Dim i As Integer

Set ranRondaApuestasCuerpoGris = Range("A1:B8")

i = 0

ActiveSheet.OLEObjects.Add(ClassType:="Forms.Optio nButton.1", _
Left:=ranRondaApuestasCuerpoGris.Left, Top:=ranRondaApuestasCuerpoGris.Top + _
ranRondaApuestasCuerpoGris.Height * i / 4, _
Width:=ranRondaApuestasCuerpoGris.Width, _
Height:=ranRondaApuestasCuerpoGris.Height * 0.25).Select

i = 1

ActiveSheet.OLEObjects.Add(ClassType:="Forms.Optio nButton.1", _
Left:=ranRondaApuestasCuerpoGris.Left, Top:=ranRondaApuestasCuerpoGris.Top + _
ranRondaApuestasCuerpoGris.Height * i / 4, _
Width:=ranRondaApuestasCuerpoGris.Width, _
Height:=ranRondaApuestasCuerpoGris.Height * 0.25).Select

i = 2

ActiveSheet.OLEObjects.Add(ClassType:="Forms.Optio nButton.1", _
Left:=ranRondaApuestasCuerpoGris.Left, Top:=ranRondaApuestasCuerpoGris.Top + _
ranRondaApuestasCuerpoGris.Height * i / 4, _
Width:=ranRondaApuestasCuerpoGris.Width, _
Height:=ranRondaApuestasCuerpoGris.Height * 0.25).Select

i = 3

ActiveSheet.OLEObjects.Add(ClassType:="Forms.Optio nButton.1", _
Left:=ranRondaApuestasCuerpoGris.Left, Top:=ranRondaApuestasCuerpoGris.Top + _
ranRondaApuestasCuerpoGris.Height * i / 4, _
Width:=ranRondaApuestasCuerpoGris.Width, _
Height:=ranRondaApuestasCuerpoGris.Height * 0.25).Select

End Sub


pero cuando tratas de meterlo todo dentro de una estructura for next el programa se ejecuta pero solo coloca el primer optionbutton!!!!!

porque??????

como lo puedo hacer?????? me estoy volviendo loco jaja