다른 시트의 이미지를 활성 시트로 복사하는 방법

Question

Sheet2에 일부 이미지를 삽입 했으므로 복사 할 내용을 Sheet1 (ActieSheet)으로 복사하고 싶습니다. 그 이미지 사본은 Sheet1의 다섯 번째 행 다음에 column1에 이미지 이름을 입력 할 때 실행됩니다. 나는 몇 가지 시도를했지만 작동하지 않지만 몇 줄의 코드를 조합하거나 구현할 방법을 모았습니다. 여기에 있습니다 :

Private Sub Worksheet_Change(ByVal Target As Range) 

    Dim picName As String 

    If Target.Column = 1 And Target.Row >= 5 Then 
     picName = Target.Offset(0, 0).Value 

     'Here goes the rest of the code 

    End If 

End Sub 

도움이 되겠습니다. 감사합니다

Answer 1

Option Explicit 

Private Sub Worksheet_Change(ByVal Target As Range) 
    Dim picName As String 
    If Target.Column = 2 And Target.Row >= 5 Then 
     picName = Target.Value 
     Copy_Images picName 
    End If 
End Sub 


Private Sub Copy_Images(imageName As String) 
    Dim sh As Shape 
    For Each sh In Sheets(2).Shapes 
     If sh.Name = imageName Then 
      sh.Copy 
      Sheets(1).Pictures.Paste 
     End If 
    Next 
End Sub