CommandBars.ExecuteMso - код VBA не работает

Я пытаюсь создать макрос для запуска файлового менеджера «Изменить изображение». По сути, я просто хочу макрос, который будет делать то же самое, что щелкнуть правой кнопкой мыши на выбранном изображении и затем щелкнуть по нему:

Я не хочу менять картинку на что-то конкретное. Я просто хочу, чтобы макрос вызывал этот экран:

Это код, который у меня есть. Основываясь на своих исследованиях, я подумал, что это то, что мне нужно:

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

Но когда я запускаю макрос, я получаю эту ошибку:

Любая помощь в этом была бы очень признательна! Благодарю.