CommandBars.ExecuteMso - código VBA não está funcionando

Question

Eu estou tentando fazer uma macro para abrir o explorador de arquivos 'Change Picture'. Basicamente, eu só quero uma macro que faça o mesmo clicando com o botão direito do mouse em uma imagem selecionada e, em seguida, clicando em:

Eunãoqueromudaraimagemparaalgoespecífico.Eusóqueroqueamacromostreestatela:

Esseéocódigoquetenho.Combasenaminhapesquisa,penseiqueissoseriaoqueeuprecisava:

SubChangePicture()ActiveSheet.Shapes.Range(Array("PIC_SUBJECT")).Select
Application.CommandBars.ExecuteMso ("PictureChange")
End Sub

Mas quando eu executo a macro, recebo este erro:

Qualquer ajuda seria muito apreciada! Obrigado.