userform y control por código

hola, dfdf !

... mediante una macro agregar varios control image a userform, como es posible???
... tambien cambiar la propiedad del control para seleccionar los archivos jpg que quiero mostrar

[seria 'bueno' continuar EN el 'hilo original'] ;)
tu consulta 'parece' clara, pero... lo que NO 'has dicho' [o lo que 'realmente' necesitas]...
'abre' varias posibilidades de respuesta [p.e.]
- ¿debe ser 'necesariamente' un userform? [o pudiera ser una imagen insertada en la hoja]
- como 'saber'...
¿cuando hay que 'cambiar' de imagen? [un control 'spínner', un combobox, una seleccion de celda, ...]
¿de donde 'se toma' la imagen? [alguna celda -o 'matriz'- que 'indique' donde esta ubicado el archivo]
¿son varias imagenes a la vez? [...]
- ... tu conoces los datos 'especificos' y que, cuando, donde, como [etc.]

¿comentas?
saludos,
hector.

Siguiendo el mismo thread esta vez ;) te paso a comentar,
tengo un botón que activa un DialogBox para seleccionar
archivos. Así que busco uno o varios archivos en el disco
y esos archivos serán los que quiero poner en un control
image.

Cada imagen tiene un thumbnails, cada thumbails se inserta
en una hoja de excel mediante macros que ya realizé, y se
les asigna una macro que para cuando se haga click sobre
un thumbnail se abra un userform y te muestre la imagen en
tamaño original... me explico??

está todo resulto, solo falta resolver como hay n
userforms con 1 control image para cada thumbnail, o como
inserto n control image para cada thumbnail en un userform.

Muchas gracias

hola, dfdf !

... mediante una macro agregar varios control image a

userform, como es posible???

... tambien cambiar la propiedad del control para

seleccionar los archivos jpg que quiero mostrar

[seria 'bueno' continuar EN el 'hilo original'] ;)
tu consulta 'parece' clara, pero... lo que NO 'has dicho'

[o lo que 'realmente' necesitas]...

'abre' varias posibilidades de respuesta [p.e.]
- ¿debe ser 'necesariamente' un userform? [o pudiera ser

una imagen insertada en la hoja]

- como 'saber'...
¿cuando hay que 'cambiar' de imagen? [un

control 'spínner', un combobox, una seleccion de
celda, ...]

¿de donde 'se toma' la imagen? [alguna celda -

o 'matriz'- que 'indique' donde esta ubicado el archivo]

¿son varias imagenes a la vez? [...]
- ... tu conoces los datos 'especificos' y que, cuando,

donde, como [etc.]

¿comentas?
saludos,
hector.


.

hola, dfdf [?] !

... boton que activa un DialogBox para seleccionar ... uno o varios archivos ... que quiero poner en un control image.
Cada imagen tiene un thumbnails ... se inserta en una hoja ... mediante macros [...]
... y se les asigna una macro para que ... un userform ... muestre la imagen en tamaño original... me explico??
... esta todo resulto, solo falta resolver ... n userforms con 1 control image ... o ... n control image para cada thumbnail [...]

disculpa si 'insisto' [como te comente en mi mensaje anterior] en que...
"lo que NO 'has dicho' [o lo que 'realmente' necesitas]... 'abre' varias posibilidades de respuesta [p.e.]..."
- ahora 'aparece' la necesidad de mostrar la/s imagen/es en 'tamaño original'...
[y -posiblemente- mostrarlas TODAS 'a la vez' ??? =>¿cuantas podrian 'llegar a ser'?< =>'NO hay problema'... es solo que... no era algo 'facil de adivinar con certeza' :))
=> 'esto implica' la necesidad de modificar 'al vuelo' al tamaño del userform y de su/s control/es image ;)
[de acuerdo al tamaño 'al 100%' de la/s imagen/es] =>sobre todo... si son dos [o todas] 'al mismo tiempo'<= :(
=> para cambiar o modificar la imagen mostrada por un control image, puedes usar el metodo 'LoadPicture("el_archivo")
[p.e.] UserForm1.Image1.Picture = LoadPicture("C:\Mis imagenes\esta imagen.jpg")
lo cual 'implica' el poder 'rastrear' la ubicacion de 'el_archivo' [incluyendo la EXTension]
'por lo tanto'... si la variable [o posible matriz] que se 'obtiene' del DialogBox que selecciona archivo/s 'sigue viva'...
podrias usar un bucle del tipo 'For Contador = Inicio To numero_archivos_seleccionados ... [instrucciones] ... Next'
o... usar el vinculo del 'thumbnail' seleccionado [si es que 'quedo registrado' en alguna parte] ;)
=> si necesitas 'ir cambiando' imagenes en un userform... es necesario mostrar el userform 'sin modo' [vbModeless]
[para que la aplicacion NO se quede 'esperando una respuesta del usuario']
o... si usas excel-'97 [que NO 'soporta' el vbModeless]... 'manejar' los cambios en el modulo de eventos del formulario
=> 'etc. etc. etc.'... como ves, hay 'varias posibilidades' [bastantes mas] de 'dar solucion' a esta consulta ;)

=> 'dejando de lado' [por ahora] la cuestion del 'tamaño original' de las imagenes :((
te expongo una manera de usar =>1 userform con 1 control image<= e 'ir mostrando' los 'jpg' de un directorio 'x'
=> presenta un inputbox 'esperando' que le indiques de que directorio se mostraran las imagenes jpg que existan
usando un objeto 'FileSearch' [a falta de saber 'como guardas' las direcciones de los archivos actualmente] ;)
'por lo pronto'... 'ajusta' el tamaño de las imagenes para que 'quepan' en el control image ['el Zoom del Picture'] ;)
y 'esperara' un lapso de 3 segundos entre imagenes [o el tiempo que le 'modifiques']
=> si es el caso de excel-'97, agrega una macro que 'solamente' muestre el userform ;) [p.e- UserForm1.Show]

saludos,
hector.

opcion xl-2k o 'superior':
=>en un modulo de codigo 'normal'<Sub Mostrar_Imagenes()
Dim Directorio As String, Siguiente As Integer, ShowTime As Long
Directorio = Trim(InputBox("Indica el directorio a buscar en...", "Buscar JPG's"))
If Right(Directorio, 1) <> "\" Then Directorio = Directorio & "\"
With Application.FileSearch
.NewSearch
.LookIn = Directorio
.FileType = msoFileTypeAllFiles
.FileName = "*.jpg"
If .Execute() > 0 Then
UserForm1.Image1.PictureSizeMode = fmPictureSizeModeZoom
UserForm1.StartUpPosition = 0
UserForm1.Show vbModeless
For Siguiente = 1 To .FoundFiles.Count
UserForm1.Image1.Picture = LoadPicture(.FoundFiles(Siguiente))
UserForm1.Repaint
Application.Wait (Now + TimeValue("0:00:03"))
Next
Unload UserForm1
Else: MsgBox "No existen archivos ""JPG"" en " & Directorio
End If
End With
End Sub

opcion xl-'97:
=>en el modulo de codigo del formulario [macro 'aparte' para mostrarlo]<Private Sub UserForm_Initialize()
Me.StartUpPosition = 0
Me.Image1.PictureSizeMode = fmPictureSizeModeZoom
End Sub
Private Sub UserForm_Activate()
Dim Directorio As String, Siguiente As Integer, ShowTime As Long
Directorio = Trim(InputBox("Indica el directorio a buscar en...", "Buscar JPG's"))
If Right(Directorio, 1) <> "\" Then Directorio = Directorio & "\"
With Application.FileSearch
.NewSearch
.LookIn = Directorio
.FileType = msoFileTypeAllFiles
.FileName = ".jpg"
If .Execute() > 0 Then
For Siguiente = 1 To .FoundFiles.Count
Me.Image1.Picture = LoadPicture(.FoundFiles(Siguiente))
Me.Repaint
Application.Wait (Now + TimeValue("0:00:03"))
Next
Else: MsgBox "No existen archivos ""JPG"" en " & Directorio
End If
End With
Unload Me
End Sub