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, TrueEnd Sub
Sub Button3_Click()
s$ = "Picture 1"
HideUnhide s, False
End SubSub HideUnhide(sName As String, bVisible As Boolean)
ActiveSheet.Shapes(sName).Visible = bVisible
End SubSub Button4_Click()
ActiveSheet.Shapes("Picture 1").Visible = msoTriStateToggle
End Sub
2010/04/02 10:57 [수정/삭제] [답글]
매크로의 인증서는,
http://ozman.tistory.com/101
참조
(매크로 실행을 위해선 인증서를 가지고 코드에 사인 하는 게 좋음.)
개인인증서는 공인루트인증기관의 인증을 거치지 않았으므로 도구->매크로->보안 에서 보안레벨을 보통으로 바꿔야 함.