crear muchos label automaticamente

hola, daniel !

... tengo un listbox con una fila de nombres
... poner un boton que... me crease tantos label como datos tenga en el listbox
... que en el label aparezca el nombre al que corresponde en el listbox y una imagen
... (esta seria la que hay en una ruta determinado con el nombre que tiene el listbox
... el archivo de imagen se llama como el texto que hay en el listbox.
... tambien colocar los label en columnas de 10 luego lo valla rellenando para a bajo.

1) supongo que 'la fila de nombres'... de algun modo/lugar/origen/... 'llego' al listbox...
-> podrias exponer este 'detalle' ?... [de preferencia, +/- exactamente] :))

2) si el 'origen' de los nombres [y las rutas de sus archivos de imagen] 'viene' de algun listado en hoja de excel...
-> cual seria la necesidad de 'duplicarlos' [pero ahora] como objetos incrustados en alguna hoja ?
-> y ademas incrustar el mismo numero de nombres/rutas con sus objetos imagen ?

3) que significa 'colocar los label en columnas de 10' ???
-> de cuantos objetos INCRUSTADOS en hojas [labels y fotos] estariamos hablando en total ???

como que hay unos cuantos 'detalles' que has dejado 'en el tintero'...
podrias exponer los que consideres importantes ?
[p.e. que es lo que *realmente* tratas de obtener] ?

saludos,
hector.

Hola Hector Miguel

muchas gracias por responder
tengo una carpeta con muchos archivos cada uno lleva una imagen con el mismo
nombre que el archivo
luego mediante una macro creo la lista de todos los archivos con sus ruta
correspondiente en una hoja al final adjunto codigo
luego en un userform tengo un listbox con todas las rutas.
de lo que se trata es de crear en el userform tantos label como datos haiga
en el listbox
y poder poner en el label el nombre del archivo y luego el icono.
este es el codigo que uso para hacer la lista de los archivos una pregunta
sobre el codigo como se haria para que en la columna c me aparezca solo los
nombres de los archivos con su extension.

Private Sub CommandButton2_Click()
On Error Resume Next
'en el label3 es donde esta reflejada la ruta de la carpeta
Dim x As String
x = Label3
[B1].Select
Set fs = Application.FileSearch
With fs
.LookIn = (x)
.SearchSubFolders = True
.Filename = "*.*"
If .Execute() > 0 Then
For i = 1 To .FoundFiles.Count
ActiveCell.Offset(1, 0).Select
Selection = .FoundFiles(i)
ActiveCell.Hyperlinks.Add Anchor:=Selection, Address:=.FoundFiles(i),
TextToDisplay:=.FoundFiles(i)

ActiveCell.Offset(0, -1) =
CreateObject("Scripting.FileSystemObject").GetFile(.FoundFiles(i)).Size
Next i
Else
MsgBox "No hay Archivos XLS en la direcccion seleccionada"
End If
End With
ListBox1.ColumnCount = 13
ListBox1.RowSource = ("$b$2:$b$1000")
Label5 = Range("c1")
End Sub



un saludo y muchas gracias
daniel
"Héctor Miguel" escribió en el mensaje
news:%

hola, daniel !

... tengo un listbox con una fila de nombres
... poner un boton que... me crease tantos label como datos tenga en el
listbox
... que en el label aparezca el nombre al que corresponde en el listbox y
una imagen
... (esta seria la que hay en una ruta determinado con el nombre que
tiene el listbox
... el archivo de imagen se llama como el texto que hay en el listbox.
... tambien colocar los label en columnas de 10 luego lo valla rellenando
para a bajo.

1) supongo que 'la fila de nombres'... de algun modo/lugar/origen/...
'llego' al listbox...
-> podrias exponer este 'detalle' ?... [de preferencia, +/-
exactamente] :))

2) si el 'origen' de los nombres [y las rutas de sus archivos de imagen]
'viene' de algun listado en hoja de excel...
-> cual seria la necesidad de 'duplicarlos' [pero ahora] como objetos
incrustados en alguna hoja ?
-> y ademas incrustar el mismo numero de nombres/rutas con sus objetos
imagen ?

3) que significa 'colocar los label en columnas de 10' ???
-> de cuantos objetos INCRUSTADOS en hojas [labels y fotos] estariamos
hablando en total ???

como que hay unos cuantos 'detalles' que has dejado 'en el tintero'...
podrias exponer los que consideres importantes ?
[p.e. que es lo que *realmente* tratas de obtener] ?

saludos,
hector.