SELECCIONAR IMAGENES ???

23/12/2008 - 03:01 por Orfao | Informe spam
HOLA GRUPO !
Tengo un libro con cerca de 200 hojas y en cada una de ellas tengo
insertadas varias imagenes en el rango a14:n43 (es decir: en algunas hojas
puede ser una sola imagen que abarque ese rango o en otras hojas pueden ser
cuatro o mas imagenes tambien acomodadas que abarcan ese rango)
adicionalmente tengo otras imagenes (Bastantes) y objetos en cada hoja .
La pregunta es : Como a travez de codigo seleccionar solamente las que esten
en el rango a14:n43 para poder moverlas a otra hoja y reemplazarlas por otro
grupo de imagenes de igual dimension (arreglo) ???
GRacias de antemano.
Me alimento del conocimiento de todos
 

Leer las respuestas

#1 Héctor Miguel
23/12/2008 - 05:37 | Informe spam
hola, moises !

Tengo un libro con cerca de 200 hojas y en cada una de ellas tengo insertadas varias imagenes en el rango a14:n43
(... en algunas hojas puede ser una sola imagen... en otras hojas pueden ser cuatro o mas... acomodadas que abarcan ese rango)
adicionalmente tengo otras imagenes (Bastantes) y objetos en cada hoja.
... Como a travez de codigo seleccionar solamente las que esten en el rango a14:n43 para
... moverlas a otra hoja y reemplazarlas por otro grupo de imagenes de igual dimension (arreglo) ???



1) considera que excel no es una aplicacion para gestionar "catalogos con imagenes" (para eso hay aplicaciones de diseno grafico)

2) considera tambien que al incrustar objetos en las hojas, puede llegar el momento en que el numero de objetos sea "suficiente"...
como para poner en riesgo la integridad/rendimiento/... de ese archivo

3) considera ademas que los objetos incrustados no son "parte" de las celdas (andan "flotando" por la capa de dibujo de las aplicaciones)
o sea, podrias preguntar por la propiedad "TopLeftCell" para determinar en que celda esta la esquina superior izquierda del objeto
pero... (obviamente) se requiere de un loop que recorra (todos ?) los objetos incrustados, y si como comentas son de 1 a 'n'... -???-

el siguiente ejemplo elimina los objetos "Shape" si su propiedad (TopLeftCell) dice que esta/n en la celda C5

Dim Fig As Shape
For Each Fig In ActiveSheet.Shapes
If Fig.TopLeftCell.Address = "$C$5" Then Fig.Delete
Next

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

Preguntas similares