Excel - Insertar fotos de un directorio a una hoja de excel dependiendo del valor de una celda

Sub insertafoto()

'tomar el nombre de una celda y poner una foto

'Por.Dam

    'Nombre del directorio

    carpeta = "c:\mauricio\fotos\"

    'el nombre de la foto deberá estar en alguna celda

    imagen = Range("F6")

    'Celda donde se va a poner la foto

    Range("j9").Select

    ActiveSheet.Pictures.Insert(carpeta & imagen).Select

    With Selection

        .Placement = xlMoveAndSize

        .PrintObject = True

    End With

    Selection.ShapeRange.LockAspectRatio = msoFalse

    'modificar las siguientes medidas para ajustar el tamaño de la foto

    Selection.ShapeRange.Height = 65#

    Selection.ShapeRange.Width = 65#

    Selection.ShapeRange.Rotation = 0#

End Sub

Sub Macro1()

'

' Macro1 Macro

'

'

    ActiveSheet.Shapes.Range(Array("Picture 5")).Select

    Selection.Delete

End Sub

ActiveSheet.Shapes.Range(Array("Picture 5")).Select

Dim NombreFigura as String

Sub insertafoto()

'tomar el nombre de una celda y poner una foto

'Por.Dam

    'Nombre del directorio

    carpeta = "c:\mauricio\fotos\"

    'el nombre de la foto deberá estar en alguna celda

    imagen = Range("F6")

'en algun lado de tu codigo se genera el nombre de la figura y ese se lo enviaras como parametro a la macro 

 NombreFoto = imagen

    'Celda donde se va a poner la foto

    Range("j9").Select

    ActiveSheet.Pictures.Insert(carpeta & imagen).Select

    With Selection

        .Placement = xlMoveAndSize

        .PrintObject = True

    End With

    Selection.ShapeRange.LockAspectRatio = msoFalse

    'modificar las siguientes medidas para ajustar el tamaño de la foto

    Selection.ShapeRange.Height = 65#

    Selection.ShapeRange.Width = 65#

    Selection.ShapeRange.Rotation = 0#

End Sub

Sub LlamaraBorrarFigura

'En algun lado con un boton o lo que sea vas a llamar a borrar la imagen , pero lo importante es que la imagen sea la que exista.

  MacroEliminaFigura(NombreFigura)

End SUb

Sub MacroEliminaFigura(Nombre as String )

'' Macro para Eliminar 

' ActiveSheet.Shapes.Range(Array(NombreFigura)).Select

    Selection.Delete

End Sub

Sub CONSNOTPERS_Rectánguloredondeado2_Haga_clic_en()

'

    'Nombre del directorio

    carpeta = "g:\pele\fotos\"

    'el nombre de la foto deberá estar en alguna celda

    imagen = Range("g5")

    'Celda donde se va a poner la foto

    Range("m6").Select

    ActiveSheet.Pictures.Insert(carpeta & imagen).Select

    With Selection

        .Placement = xlMoveAndSize

        .PrintObject = True

    End With

    Selection.ShapeRange.LockAspectRatio = msoFalse

    'modificar las siguientes medidas para ajustar el tamaño de la foto

    Selection.ShapeRange.Height = 150#

    Selection.ShapeRange.Width = 150#

    Selection.ShapeRange.Rotation = 0#

End Sub

Sub CONSNOTPERS_Rectánguloredondeado2_Haga_clic_en()

    On Error Resume Next                ' Si ocurre un error sale del macro

    'Nombre del directorio

    'Carpeta = ActiveWorkbook.Path & "\img\" & foto ' Este para la ruta de Andres

    Carpeta = "g:\pele\fotos\"

    'el nombre de la foto deberá estar en alguna celda

    imagen = Range("G5").Value        ' Trae el nombre del archivo que está en G5

        Application.ScreenUpdating = False  'No actualiza la pantalla

        ActiveSheet.Shapes("fotoanterior").Delete        ' Borra la foto anterior

        Range("M6").Select  ' Celda donde se colocará la fotografía

        ActiveSheet.Pictures.Insert(Carpeta & imagen).Select ' Inserta la imagen

            With Selection

                .Name = "fotoanterior"  ' Le da un nombre para borrarlo si se vuelve a cambiar

                .Placement = xlMoveAndSize

                .PrintObject = True

                .ShapeRange.LockAspectRatio = msoFalse

            'modificar las siguientes medidas para ajustar el tamaño de la foto

                .ShapeRange.Height = 150#

                .ShapeRange.Width = 150#

                .ShapeRange.Rotation = 0#

            End With

'                With Selection

'

'                    .Placement = xlMoveAndSize  ' Lugar y posición

'                    .PrintObject = True         ' Impresión

'                    .ShapeRange.LockAspectRatio = msoFalse  ' Modificación proporcional de la imagen

'                    .ShapeRange.Height = 85#    ' Alto  en pixeles

'                    .ShapeRange.Width = 65#     ' Ancho en pixeles

'                    .ShapeRange.Rotation = 0#   ' Angulo de rotación

'                End With

'

        Application.ScreenUpdating = True   'Actualiza la pantalla

End Sub