Visual Basic para Aplicaciones - Insertar varios optionbuttons

Life is soft - evento anual de software empresarial
 
Vista:

Insertar varios optionbuttons

Publicado por Franco Lacamoire (7 intervenciones) el 14/03/2008 15:00:32
Como puedo insertar 4 optionbutton (OLEObjects) en mi hoja de calculo de excel utilizando una estructura for next???? los controles deben estar ordenados uno debajo del otro mas o menos sobre la columna A

E intentado muchos codigos que utilizan el sig fragmento:

Worksheets("Hoja1").OLEObjects.Add(ClassType:="Forms.OptionButton.1", _
Left:=ranRondaApuestasCuerpoGris.Left, Top:=ranRondaApuestasCuerpoGris.Top +
ranRondaApuestasCuerpoGris.Height * i / 4, _
Width:=ranRondaApuestasCuerpoGris.Width, _
Height:=ranRondaApuestasCuerpoGris.Height * 0.25)

Donde i es la variable integer que utilizo en la estructura for next.

ranRondaApuestasCuerpoGris es un objeto rango que tiene cierto tamaño (filas x columnas)

REPITO, EL CODIGO SE EJECUTA PERO NO ME APARECEN LOS BOTONES EN LA HOJA DE CALCULO.

Que es lo que sucede? como hago que funcione????

AYUDA PLEASE
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Insertar varios optionbuttons

Publicado por JuanC (243 intervenciones) el 16/03/2008 18:10:30
probá así...

Dim obj As Object
For i=1 To 4
Set obj = Worksheets("Hoja1").OLEObjects.Add(ClassType:="Forms.OptionButton.1", _
Left:=ranRondaApuestasCuerpoGris.Left, Top:=ranRondaApuestasCuerpoGris.Top +
ranRondaApuestasCuerpoGris.Height * i / 4, _
Width:=ranRondaApuestasCuerpoGris.Width, _
Height:=ranRondaApuestasCuerpoGris.Height * 0.25)

obj.Select
Next i

Saludos desde Baires, JuanC
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Insertar varios optionbuttons

Publicado por Franco Lacamoire (7 intervenciones) el 18/03/2008 18:33:25
Muchas gracias Juan, me resulto muy util.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar