¡Como hacer una macro en excel para hacer credenciales?

EN EL VIDEO BASE DE DATOS CON FOTO (https://www.youtube.com/watch?v=qdwdoGjZoMc)  me dice que se producido error 438 en tiempo de ejecución este objeto no admite esta propiedad o metodo ActiveSheet.Imagen1.Picture = LoadPicture("C:\Users\usuario\Documents\prueva\" & foto & ".jpg") que hago?

Lo que quiero hacer es una macro que tome una foto y llene una base de datos para posteriormente me lo arroje en forma de tarjeta para imprimirla.

Pero que guarde registro de los datos de cada persona y la foto