¿Una macro en Excel para insertar y ordenar N imágenes?
Tengo una macro que inserta N cantidad de imágenes desde una carpeta llamada img (la cual está en la misma carpeta donde se almacena el archivo xlsm) y las redimensiona en su anchura a un tamaño que ya tengo definido.
Lo que quisiera es que también es que:
- Ordenará las imágenes una debajo de otra, alineándolas al centro de la página, por ahora solo las superpone.
- Que si vuelvo a ejecutar la macro las nuevas imágenes se ubiquen debajo de las anteriores.
- Que se inserten partiendo de una celda definida.
Espero me puedan ayudar, no sé si es mucho pedir, dejo aquí el código (no es mío lo encontré y solo lo modifique un poco) o ¿alguna otra sugerencia?
Sub Insertimag()
Application.ScreenUpdating = False
On Error Resume Next
Dim vrtSelectedItem As Variant
With Application.FileDialog(msoFileDialogFilePicker)
.Title = "Selecciona las imagenes"
.Filters.Clear
.Filters.Add "Archivos JPG PNG BMP", "*.jpg*;*.png*;*.bmp*"
.FilterIndex = 1
.AllowMultiSelect = True
.InitialFileName = ThisWorkbook.Path & "\img\"
If .Show Then
For Each vrtSelectedItem In .SelectedItems
Cells(fila, col).Select
ActiveSheet.Pictures.Insert(vrtSelectedItem).Select
Selection.ShapeRange.Width = 400
Next
End If
End With
End Sub
Abraham, me pasa lo mismo. Parece que no funciona Cells(fila,8).select. Se queda siempre en la celda inicial - Juan Carlos Piracés Schmidt
Disculpa, por error grabé la macro en una hoja y no en un módulo. Sí funciona - Juan Carlos Piracés Schmidt