엑셀내 모든 이미지 지우는 VBA

엑셀내 모든 이미지 지우는 VBA

테이블 구조 설계를 하면서 코딩 작업을 하면서 테이블 구조를 수시로 참조하면서 작업을 해야 하는데 좀 불편해서 편하게 할 방법이 없나 고민하다가 phpMyAdmin 에서 테이블 구조를 Drag & Drop 으로 복사하여 엑셀에 붙여넣기를 했더니....

이런식으로 그림 이미지가 잔뜩 붙어있습니다.

이 이미지를 제거하는 VBA 코드 입니다.

Sub Delete_Shape()
    Dim Shp As Shape
    For Each Shp In ActiveSheet.Shapes
        Shp.Delete
    Next Shp
End Sub

실행하고 나면 이미지가 모두 제거 됩니다.

간단하지만 필요에 따라 유용하게 사용할 수 있습니다.