VBA 이미지 복사 붙여넣고 위치 맞추기

 

​

① 이미지 하나를 복사한다.

② 다른 시트에 붙여 넣는다.

③ 위치를 조정한다.

④ 끝!

​

전체 코드 중에서 가장 핵심이 되는 코드는 아래 몇 줄 되지 않는다

' 이미지 복사 pic.Copy   ' 이미지 붙여넣기 sht.Paste   For Each shape In sht.Shapes      Select Case shape.Type           Case msoPicture, msoMedia, msoShapeTypeMixed, msoOLEControlObject, msoAutoShape                ' 이미지 위치 맞춤                shape.Left = 30                shape.Top = 30           Case Else                'Do nothing      End Select Next

​

​

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("그림 2")   '시트 반복 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 shape.Type                          Case msoPicture, msoMedia, msoShapeTypeMixed, msoOLEControlObject, msoAutoShape                               ' 이미지 위치 맞춤                               shape.Left = 550                               shape.Top = 20                          Case Else                               'Do nothing                     End Select                Next      End If Next   End Sub

​

#vba그림복사

#vba이미지복사

#vba이미지복사붙여넣기

#vba그림복사붙여넣기

#vba사진복사붙이기

#vba사진복사