ExecuteMso-画像の変更>ファイルから

Excelの画像変更機能を表示するボタンを作成したいと思います。ユーザーが写真の上にあるボタンをクリックして、必要に応じて写真を変更できるようにします。

このマクロが機能しない理由について、誰かが私に洞察を与えることができますか？

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

右クリック>画像の変更>ファイルから...と同じ機能を使用したい

前もって感謝します。

microsoft-excel vba

— マイケル・フロボーゼ
ソース

「機能しない」とはどういう意味ですか？

— アルビン

マクロレコーダーのコードはどのように見えますか？私が知る限り、ここで画像を選択するだけです。

— ブルースウェイン

私はとの「オブジェクトのメソッド『ExecuteMso』『_CommandBars』失敗」「実行時エラー『-2147467259（800040005）』」というエラー取得しています@Albin

— マイケルFroboese