Programación General > VBA

 Cambio De La Propiedad Picture De Una Imagen

(1/1)

Barney118:
Hola a todos.

Tengo un problema que me lleva loco varios días y no encuentro solución:
en una hoja de Excel tengo una serie de imagenes incrustadas (Image1, Image2, Image3, etc... hasta 100), y mediante código quiero poder hacerlas todas iguales en un momento dado. Lo más sencillo sería escribir, por ejemplo:

Image1.Picture = Image100.Picture
Image2.Picture = Image100.Picture
Image3.Picture = Image100.Picture
Image4.Picture = Image100.Picture
...
Image99.Picture = Image100.Picture

Mi pregunta es: ¿hay alguna forma de crear un bucle que me lo pueda hacer directamente? he probado de muchas formas pero no consigo poder asignar la propiedad sin escribir otra cosa que lo que he puesto.

Un saludo y muchas gracias por anticipado

Toph:

--- Cita de: "Barney118" --- ¿hay alguna forma de crear un bucle que me lo pueda hacer directamente? he probado de muchas formas pero no consigo poder asignar la propiedad sin escribir otra cosa que lo que he puesto.

 
--- Fin de la cita ---
 con la limitante que no se puede hacer una matriz de controles me temo que no hay otra forma :ph34r:
mas tarde averiguare mas al respecto  :comp:

F_Tanori:
puedes recorrer las imagenes de esta manera



--- Código: Text ---Function Redimensionar() For c = 1 To Hoja1.Shapes.Count     If Hoja1.Shapes(c).Type = msoPicture Then           Hoja1.Shapes(c).Width = Hoja1.Shapes(100).Width           Hoja1.Shapes(c).Height = Hoja1.Shapes(100).Height    End If Next cEnd Function 

Espero te sirva saludos

Barney118:
MUCHAS GRACIAS POR VUESTRAS RESPUESTAS!

Efectivamente con este código puedo recorrer las imágenes (cosa que hasta ahora no había conseguido), pero no me deja cambiarles la propiedad "Picture". Seguiré dándole vueltas, ya estoy más cerca.... :comp:

Gracias de nuevo.

Navegación

[0] Índice de Mensajes