Como insertar varias imágenes ajustadas a celdas de ex
Tengo POR cantidad de fotos, supongamos, 100, de un tamaño de 320x240px, y necesito insertar simultáneamente una en cada celda, y que esta quede ajustada.
Ejemplo
Foto1 en celda A1
Foto2 en celda A2
Foto3 en celda A3
... Foto100 en celda A100
Ejemplo
Foto1 en celda A1
Foto2 en celda A2
Foto3 en celda A3
... Foto100 en celda A100
1 respuesta
Respuesta de paramisolo
1
La macro quedaría así para una imagen de las dimensiones facilitadas(320x240 pilses) y para 100 imágenes:
Sub Insertar_Imagenes()
Dim numero, fila As Integer
Dim nombre As String
numero = 1
nombre = "Foto" & numero
fila = 1
Range("A1").Select
ActiveSheet.Pictures.Insert( _
"C:\Documents and Settings\Papa\Escritorio\" & nombre & ".jpg").Select
Columns("A:A").ColumnWidth = 33.71
Rows(fila).RowHeight = 180
Do While numero <> 100
ActiveCell.Offset(1, 0).Select
numero = numero + 1
fila = fila + 1
ActiveSheet.Pictures.Insert( _
"C:\Documents and Settings\Papa\Escritorio\" & nombre & ".jpg").Select
Rows(fila).RowHeight = 180
Loop
End Sub
Tienes que tener todas las fotos en la misma ruta y todas tienen que tener el nombre(Foto+un numero ordinal hasta el 100)
>Un saludo
>Julio
PD: Si te ha servido comenta, puntúa y finaliza la consulta
Sub Insertar_Imagenes()
Dim numero, fila As Integer
Dim nombre As String
numero = 1
nombre = "Foto" & numero
fila = 1
Range("A1").Select
ActiveSheet.Pictures.Insert( _
"C:\Documents and Settings\Papa\Escritorio\" & nombre & ".jpg").Select
Columns("A:A").ColumnWidth = 33.71
Rows(fila).RowHeight = 180
Do While numero <> 100
ActiveCell.Offset(1, 0).Select
numero = numero + 1
fila = fila + 1
ActiveSheet.Pictures.Insert( _
"C:\Documents and Settings\Papa\Escritorio\" & nombre & ".jpg").Select
Rows(fila).RowHeight = 180
Loop
End Sub
Tienes que tener todas las fotos en la misma ruta y todas tienen que tener el nombre(Foto+un numero ordinal hasta el 100)
>Un saludo
>Julio
PD: Si te ha servido comenta, puntúa y finaliza la consulta
