hola chicos necesitaria que alguien me escribiera una macro ,necesito importar unas fotos que estan ubicadas en la carpeta de imagenes y dentro de estas hay otra carpeta que se llama lamparas pues bien necesito importar estas fotos a un hoja activa de un archivo excel que se encuentra en el escritorio mi sistema operativo es vista,me pasaron esta macro pero no funciona

Sub Makro2()

Dim Pfad As String, Wiederholungen As Long

Dim PicBild As Picture

Dim lngRow As Long, lngLast As Long

Dim dblOHeight As Double, dblOWidth As Double

On Error Resume Next

Pfad = "C:\sergio\Imagenes\lamparas"

Application.ScreenUpdating = False

For Wiederholungen = 2 To Range("A35").End(xlUp).Row

Set PicBild = _

ActiveSheet.Pictures.Insert(Pfad & Cells(Wiederholungen, 1).Value & ".jpg")

PicBild.Top = Cells(Wiederholungen, 1).Top

PicBild.Left = Cells(Wiederholungen, 1).Left

dblOHeight = PicBild.Height

dblOWidth = PicBild.Width

PicBild.ShapeRange.LockAspectRatio = False

PicBild.Height = Cells(Wiederholungen, 1).Height

PicBild.Width = dblOWidth * (PicBild.Height / dblOHeight)

Next

Application.ScreenUpdating = True

End Sub

macro importar fotos.txt

hola chicos necesitaria que alguien me escribiera una macro ,necesito importar unas fotos que estan ubicadas en la carpeta de imagenes y dentro de estas hay otra carpeta que se llama lamparas pues bien necesito importar estas fotos a un hoja activa de un archivo excel que se encuentra en el escritorio mi sistema operativo es vista,me pasaron esta macro pero no funciona

Fíjate si puedes adaptar este modelo: Administración de imágenes en subcarpeta

Saludos, Cacho R.