728x90
엑셀내 모든 이미지 지우는 VBA
테이블 구조 설계를 하면서 코딩 작업을 하면서 테이블 구조를 수시로 참조하면서 작업을 해야 하는데 좀 불편해서 편하게 할 방법이 없나 고민하다가 phpMyAdmin 에서 테이블 구조를 Drag & Drop 으로 복사하여 엑셀에 붙여넣기를 했더니....
이런식으로 그림 이미지가 잔뜩 붙어있습니다.
이 이미지를 제거하는 VBA 코드 입니다.
Sub Delete_Shape()
Dim Shp As Shape
For Each Shp In ActiveSheet.Shapes
Shp.Delete
Next Shp
End Sub
실행하고 나면 이미지가 모두 제거 됩니다.
간단하지만 필요에 따라 유용하게 사용할 수 있습니다.
'업무 능력 향상 > 엑셀 VBA 활용' 카테고리의 다른 글
| [VBA] 중복데이터 색깔표시, 중복제거, 정렬 (2) | 2015.03.08 |
|---|---|
| [VBA] 행높이와 열너비 저장 및 복원 (0) | 2015.02.25 |
| 셀분리하여 특정열 마지막 데이터에 저장 (0) | 2015.01.28 |
| 중복개수 표시 VBA (효율적인 메모리, CPU 부하방지) (0) | 2014.12.12 |
| Replace 이용하여 주소에서 지역만 다시 정리 (0) | 2014.12.07 |
Link2Me