Z-Order 관련 문제

Question

스프레드 시트에 여러 모양과 확인란이 있습니다. 해당 확인란을 클릭하면 특정 모양을 앞에 표시 (해당 피어보다 높은 Z 순서)하는 함수를 만들고 싶습니다. 현재 가지고있는 코드는 다음과 같습니다.

Sub CheckBox3_Click() 
If CheckBox3.Value = True Then 
Sheet1.Shapes("blueoval").ZOrder msoBringToFront 
End If 
End Sub 

이 코드를 실행할 때마다 런타임 오류 '424'가 나타납니다. 나는 엑셀을 위해 VBA를 처음 사용하기 때문에 어떤 도움을 주시면 감사하겠습니다. 이 코드의 문제점은 무엇입니까? 누락 된 것이 무엇입니까? 등. 고마워!

Answer 1

코드가 작동합니다.

확인은 :

귀하의 체크 박스는 ActiveX 컨트롤이 아닌 양식 컨트롤입니다. 확인란 이름은 CheckBox3입니다. sheet1에 blueoval이라는 도형이 있습니다. 파란색 타원이있는 시트 이름은 실제로 Sheet1입니다 (Visual Basic 편집기에서 확인). Visual Basic Editor에서 Tools> References를 선택하고 MISSING으로 표시된 참조가 없는지 확인하십시오. 코드가 확인란이 있고 다른 모듈에없는 워크 시트에 있습니다.