Rommance - Daniel Jiseok Song

http://www.developertags.com/microsoft-excel/452263/

Sub test()
s$ = "Rectangle 1"
HideUnhide s, False
Stop
HideUnhide s, True
End Sub
Sub HideUnhide(sName As String, bVisible As Boolean)
ActiveSheet.Shapes(sName).Visible = bVisible
End Sub

이렇게 쓰면 된다

토글 하려면 이렇게 쓰면 된다. (사실 Visible은 boolean 형식이 아니라 MsoTriState로 되어있다.

ActiveSheet.Shapes("Picture 1").Visible = msoTriStateToggle

처음엔 Selection쓰려고 했는데 오류났는데 인터넷 찾아보니 no need to select 라고 하는군

Sub Button2_Click()
'
' Button2_Click Macro
    s$ = "Picture 1"
    HideUnhide s, True

End Sub
Sub Button3_Click()
    s$ = "Picture 1"
    HideUnhide s, False
End Sub

Sub HideUnhide(sName As String, bVisible As Boolean)
    ActiveSheet.Shapes(sName).Visible = bVisible
End Sub

Sub Button4_Click()
    ActiveSheet.Shapes("Picture 1").Visible = msoTriStateToggle
End Sub

 

크리에이티브 커먼즈 라이센스

이 저작물은 크리에이티브 커먼즈 코리아 저작자표시-비영리-변경금지 2.0 대한민국 라이센스에 따라 이용하실 수 있습니다.

http://k.daum.net/qna/view.html?qid=2d7Pn

내용을 그대로 복사합니다
다른위치에 오셔서 마우스 오른쪽 버튼을 누르고
선택하여 붙여넣기를 실행합니다
대화상자 아랫쪽에 행/열 바꿈을 선택하고 확인을 클릭합니다

크리에이티브 커먼즈 라이센스

이 저작물은 크리에이티브 커먼즈 코리아 저작자표시-비영리-변경금지 2.0 대한민국 라이센스에 따라 이용하실 수 있습니다.