SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => VBA => Mensaje iniciado por: Barney118 en Miércoles 23 de Mayo de 2007, 17:54

Título: Cambio De La Propiedad Picture De Una Imagen
Publicado por: Barney118 en Miércoles 23 de Mayo de 2007, 17:54
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
Título: Re: Cambio De La Propiedad Picture De Una Imagen
Publicado por: Toph en Miércoles 23 de Mayo de 2007, 21:20
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.

 
 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:
Título: Re: Cambio De La Propiedad Picture De Una Imagen
Publicado por: F_Tanori en Miércoles 23 de Mayo de 2007, 22:17
puedes recorrer las imagenes de esta manera


Código: Text
  1. Function Redimensionar()
  2.  For c = 1 To Hoja1.Shapes.Count
  3.      If Hoja1.Shapes(c).Type = msoPicture Then
  4.            Hoja1.Shapes(c).Width = Hoja1.Shapes(100).Width
  5.            Hoja1.Shapes(c).Height = Hoja1.Shapes(100).Height
  6.     End If
  7.  Next c
  8. End Function
  9.  


Espero te sirva saludos
Título: Re: Cambio De La Propiedad Picture De Una Imagen
Publicado por: Barney118 en Jueves 24 de Mayo de 2007, 09:06
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.