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


0

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

Right Click > Change Picture > From a File...

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

This Screen

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

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

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

Error

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

Используя наш сайт, вы подтверждаете, что прочитали и поняли нашу Политику в отношении файлов cookie и Политику конфиденциальности.
Licensed under cc by-sa 3.0 with attribution required.