VBA 특정 시트부터 특정이미지 반복하여 붙여넣기 및 이미지 모두삭제

Sub 이미지붙여넣기() Dim m As Workbook Dim ms As Worksheet Set m = Workbooks(ThisWorkbook.Name) Set ms = m.Sheets("Camera") Dim sht As Worksheet Dim shape As Excel.shape Dim pic As Picture Set pic = ms.Pictures("그림 1") '시트 반복 For Each sht In Workbooks(ThisWorkbook.Name).Sheets ' 조건 If sht.Index > 4 Then ' 이미지 복사 pic.Copy ' 이미지 붙여넣기 sht.Paste For Each shape In sht.Shapes Select Case shap..

2020.02.18