클릭하면 이미지가 보이거나 사라집니다.

Question

직사각형을 그린 다음 그림을 삽입하고 사각형에 놓습니다. 지금하고 싶은 것은 마우스로 사진을 클릭하면 사라지고 모든 사각형이 보이지만 사각형을 클릭하면 같은 이미지가 다시 나타납니다.

Answer 1

아래의 코드는 여러 그림/사각형에 대해 재사용 할 수 있습니다. 트릭은 rect_ 접두사가 붙은 각 그림 뒤에 직사각형 이름을 붙여야한다는 것입니다. 예를 들어, 내 그림은 '그림 1'이라고하고 각 직사각형은 'rect_Picture 1'로 이름을 바꾸고 '그림 1'을 그 위에 놓아야합니다. 아래의 코드를 두 객체에 할당하십시오.

Sub TogglePictureVisibilty() 
    Dim picName As String 

    'Capture the macro calling object name 
    picName = Application.Caller 

    'Remove rect_ from object name if exists 
    If Left(picName, 5) = "rect_" Then 
      picName = Mid(picName, 6, Len(picName)) 
    End If 

    'Hide if visible and vice versa 
    ActiveSheet.Shapes(picName).Visible = Not ActiveSheet.Shapes(picName).Visible 
End Sub 

희망이 있습니다.