엑셀 매크로 : 그림을 숨기기/복구하기

Posted at 2010/04/02 10:24 // in Tips // by Daniel

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

 

image

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