ExecuteMso-사진 변경> 파일에서

그림 변경 기능을 Excel로 가져올 수있는 버튼을 만들고 싶습니다. 사용자가 그림 위의 버튼을 클릭하여 필요할 때 그림을 변경할 수 있기를 원합니다.

이 매크로가 작동하지 않는 이유를 누군가에게 알려줄 수 있습니까?

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

마우스 오른쪽 버튼 클릭> 그림 변경> 파일에서와 같은 기능을 원합니다.

미리 감사드립니다.

microsoft-excel vba

— 마이클 프로 보즈
소스

"작동하지 않는다"는 무슨 의미가 있습니까?

— Albin

매크로 레코더 코드는 어떻게 생겼습니까? 내가 말할 수있는 한 여기에서 이미지를 선택하기 만하면됩니다.

— BruceWayne

@Albin "런타임 오류 '-2147467259 (800040005)'"와 함께 " '_CommandBars'개체의 'ExecuteMso'방법이 실패했습니다"라는 오류가 발생합니다.

— Michael Froboese