Saltar al contenido

Insertar una carpeta con mas de 100 imágenes en excel utilizando una macro

publicado

Quiero insertar imágenes desde una carpeta con una macro en un hoja de Excel

este es el código cuando lo ejecuto me marca error 438, a que se debe ese error.

</IniciaCodigo>

Sub fotos()

Dim ImgArray(158) As Variant

Dim x As String

Dim fotos As Long

x = Dir("C:\CL_0121\*.jpg")

Do

fotos = fotos + 1

ImgArray(fotos) = x

x = Dir

Loop Until x = ""

ActiveCell.Value = x

For i = 1 To fotos

Selection.InlineShapes.AddPicture _

Filename:="C:\CL_0121\" & _

ImgArray(i), LinkToFile _

:=False, SaveWithDocument:=True

Next i

End Sub

</ FinCodigo>

Que es lo que esta mal

Featured Replies

No hay posts para mostrar

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.