Como puedo hacer referencia a un grupo

"Manolito" escribió en el mensaje
news:%

Buenas, tengo una serie de objetos "Shape" distribuidos por la hoja y lo

que

yo quiero:
1º. Crear un grupo - esto lo hago manualmente
2º. Hacer referencia al grupo de shapes para cambiarle el color de los
bordes, ocultarlas, etc. - esto es lo que no se hacer.

Haber si alguno me sabe echar una manilla, gracias.

Hola Manolito,

por ejemplo asi:

1º. Crear un grupo - esto lo hago manualmente

ActiveSheet.Shapes.Range(Array("Rectangulo 1", "Rectangulo 2", "Rectangulo
3")).Group

2º. Hacer referencia al grupo de shapes para cambiarle el color de los
bordes, ocultarlas, etc. - esto es lo que no se hacer.

ActiveSheet.Shapes("Group 4").Select

De todas formas decirte que :

1) para cambiar las propiedades de los objetos en la mayoria de los casos no
es necesario seleccionarlos, p.ej.:

ActiveSheet.Shapes("Group 6").Fill.Visible = msoFalse

2) siempre puedes usar la grabadora de macros en el menu
Herramientas>Macro>Grabar nuevo macro.., para averiguar los objetos,
propiedades, metodos o constantes relevantes. Eso si, luego se tiene que
pulir el codigo :-))

Saludos,
KL

Gracias por tue rapida respuesta, funciona de maravilla
"KL" escribió en el mensaje
news:

Hola Manolito,

por ejemplo asi:

> 1º. Crear un grupo - esto lo hago manualmente

ActiveSheet.Shapes.Range(Array("Rectangulo 1", "Rectangulo 2", "Rectangulo
3")).Group

> 2º. Hacer referencia al grupo de shapes para cambiarle el color de los
> bordes, ocultarlas, etc. - esto es lo que no se hacer.

ActiveSheet.Shapes("Group 4").Select

De todas formas decirte que :

1) para cambiar las propiedades de los objetos en la mayoria de los casos

no

es necesario seleccionarlos, p.ej.:

ActiveSheet.Shapes("Group 6").Fill.Visible = msoFalse

2) siempre puedes usar la grabadora de macros en el menu
Herramientas>Macro>Grabar nuevo macro.., para averiguar los objetos,
propiedades, metodos o constantes relevantes. Eso si, luego se tiene que
pulir el codigo :-))

Saludos,
KL