엑셀VBA 선택범위 내 도형/이미지 일괄 선택

엑셀로 문서를 작성하다 보면 도형이랑 이미지를 많이 삽입하는 경우가 있는데요

수많은 이미지 중에서 일부만 삭제하고 싶은데 [ctrl]을 눌러 다중 선택 후 삭제하는게 일반적입니다.

아래 코드를 활용하시면 선택 범위 내 도형이나 이미지가 있는 경우 일괄 선택되어 수정 및 삭제하기 편리해집니다.

아래 내용을 참고하셔서 꼭 한번 사용해보세요

 

---

<본문 이동 링크>

1. 코드 소개

2. 코드 실행 결과

 

<참고할만한 글>

엑셀 VBA 엑셀도형 자동삽입 및 추가 설정 방법

---

1. 코드 소개

- 아래 코드는 선택된 범위에 있는 도형 및 이미지만 선택하는 코드입니다.

- 아래에서 4번째 shp.Select의 경우 (False)를 추가해야 다중선택을 하게 됩니다.

반응형

Sub 도형선택()
    Dim shp As Shape
    Dim cellRange As Range
    
    Set cellRange = Selection ' 현재 선택된 셀 범위
    
    For Each shp In ActiveSheet.Shapes ' 모든 도형을 검사
        ' 도형이 선택된 셀 범위 안에 있는지 확인
        If Not Intersect(shp.TopLeftCell, cellRange) Is Nothing _
        And Not Intersect(shp.BottomRightCell, cellRange) Is Nothing Then
            shp.Select (False) ' 도형 선택 false가 다중 선택을 의미
        End If
    Next shp
End Sub

 

2. 코드 실행 결과

- 셀 범위를 선택했을 때 범위 안에 도형이나 이미지가 완전에 포함되는 경우 선택됩니다.

728x90