Macro para cargar una imagen de un carpeta

Te anexo la macro

Sub InsertarImagen()
'Por.Dante Amor
    With Application.FileDialog(msoFileDialogFilePicker)
        .Title = "Seleccione archivo de imagen"
        .Filters.Clear
        .Filters.Add "Todos los archivos", "*.*"
        .Filters.Add "*.jpg", "*.jp*"
        .Filters.Add "*.bmp", "*.bmp"
        .FilterIndex = 2
        .AllowMultiSelect = False
        .InitialFileName = ThisWorkbook.Path
        If .Show Then
            archivo = .SelectedItems.Item(1)
            ActiveSheet.Pictures.Insert(archivo).Select
        End If
    End With
End Sub

Saludos.Dante Amor

Si es lo que necesitas.