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

383
Michael Froboese

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

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

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

0

0 ответов на вопрос

Похожие вопросы