Boa tarde amigos,
tenho um cadastro de clientes que terá a foto nele. Estou utilizando o padrão do código do cliente será o nome do arquivo com a sua foto. Exemplo: Cliente cód 1, sua foto será 1.jpg e assim por diante.
O nome do objeto de imagem é foto e a coluna que fica a informação do nome do arquivo está em T, ou seja, no C.Offset(0,17).Value

Não consegui nem colocar as fotos no objeto foto via VBA, só indo pelas propriedades do objeto (picture)

Private Sub nome_Click()
Sheets("Cadastro").Select
With Worksheets("Cadastro").Range("B:B")
    Set C = .Find(nome.Value, LookIn:=xlValues, LookAt:=xlPart)
    If Not C Is Nothing Then
        C.Activate
        grau.Value = C.Offset(0, 1).Value
        datanascimento.Value = C.Offset(0, 2).Value
        telefoneresidencial.Value = C.Offset(0, 3).Value
        telefonecelular1.Value = C.Offset(0, 4).Value
        telefonecelular2.Value = C.Offset(0, 5).Value
        telefonecomercial.Value = C.Offset(0, 6).Value
        endereco.Value = C.Offset(0, 7).Value
        endereco_nr.Value = C.Offset(0, 8).Value
        endereco_complemento.Value = C.Offset(0, 9).Value
        endereco_bairro.Value = C.Offset(0, 10).Value
        endereco_cidade.Value = C.Offset(0, 11).Value
        endereco_uf.Value = C.Offset(0, 12).Value
        endereco_cep.Value = C.Offset(0, 13).Value
        email.Value = C.Offset(0, 14).Value
        dataatualizacao.Value = C.Offset(0, 15).Value
        observacoes.Value = C.Offset(0, 16).Value
        If C.Offset(0, 17).Value = "ATIVO" Then
            OptionButton1.Value = True
        Else
            OptionButton2.Value = True
        End If
    End If
End With
End Sub