ExecuteMso - Alterar Imagem de um Arquivo

Question

Eu gostaria de criar um botão que traria o recurso de mudança de imagem no Excel. Eu quero que os usuários possam clicar no botão acima das imagens para alterar as imagens quando necessário.

Alguém pode me dar algumas dicas sobre por que essa macro não funciona?

Sub ChangePicture()
ActiveSheet.Shapes.Range(Array("PIC_RENTCOMP1A")).Select
CommandBars.ExecuteMso ("PictureChange")
End Sub

Eu quero ter o mesmo recurso do Right Click > Alterar imagem > De um arquivo ...

Obrigado antecipadamente.