Renombrar imagen Power Point VBA

[NAB_20]

Buenas tardes,  tengo una duda y no estoy sabiendo como resolverla.

 

El caso es que abro una imagen dándole una ruta al código y cada vez que ejecuto la macro esa imagen se carga con un nombre diferente por lo que para poder trabajar con ella es un problema. Me interesaría que una vez he cargado la imagen poder renombrarla para poder manipularla.

La ruta que utilizo para abrir la imagen es algo así mydocument.Shapes.AddPicture FileName:="D:\Usuarios\prueba.jpg", LinkToFile:=msoTrue, SaveWithDocument:=msoTrue, _
    Left:=100, Top:=100, Width:=270, Height:=270

Saludos