엑셀 시트의 이미지 관련 소소한 팁

엑셀 파일 중에는 이미지를 몇 개씩 포함한 파일들이 있다.

이 파일들을 자동으로 통합하면 이미지가 함께 따라와서 지저분해진다.

시트에서 모두 선택해서 한번에 지우는 매크로다.

ActiveSheet.Shapes.SelectAll
Selection.Delete

 

엑셀 내에 있는 이미지의 수가 필요한 경우

'이미지파일 수 세기

shpCnt = ActiveSheet.Shapes.Count

imgNum = 0

i = 1

Do while i < shpCnt + 1

if activeSheet.shapes.item(shpECnt).type = 13 then 'type = 13이 그림파일임

imgNum = imgNum + 1

end if

i = i + 1

loop

cells(3,4) = imgNum   'imgNum is number of image