'목록하단 광고 치환자(withSeok)
728x90
에러 문구
: 개체를 시트 밖으로 이동할 수 없습니다.

 

1
2
3
4
5
6
7
8
9
Sub Test()
    '에러 개체를 시트 밖으로 옮길수 없습니다.
    '위 에러를 수정하여 행열숨기기 가능
    Dim s As Shape
    On Error Resume Next
    For Each s In ActiveSheet.Shapes
        s.Placement = xlMoveAndSize
    Next
End Sub
cs
728x90

+ Recent posts