엑셀에서 그림파일을 삽입하면 Picture ? 이란 이름으로 등록이 됩니다
그림으로 인식을 하는거죠
각 그림을 선택한 후 Picture ?으로 되어있는 이름을 해당 품명으로 바꾸어줍니다
좌상이름상자에 이름을 쓰고 엔터. 또는 삽입-이름-정의
(참고로 위의 AJ0123, AA1124...등은 셀번호와 겹치므로 이름으로 사용할 수 없구요)
2. 메크로를 기록하기 위해 Alt + F11을 눌러서 편집기를 연 후
아래 코드를 복사하여 그림처럼 붙여넣습니다
Sub 그림정렬()
For K = 1 To ActiveSheet.Range("A65536").End(xlUp).Row
For Each x In ActiveSheet.Pictures
If x.Name = Range("A" & K) Then
x.Top = Range("F" & K).Top
x.Left = Range("F" & K).Left
x.Width = Range("F" & K).Width
x.Height = Range("F" & K).Height
End If
Next x
Next K
End Sub
A열을 순환하며 품명과 같은 이름의 그림을 찾고, 있으면 그것을 F열 같은 행에 넣는데
그 셀의 크기와 같게 만드는 코드입니다
3. 입력했으면 쉬트로 돌아와서 매크로를 실행하기위해 Alt+F8 을 누릅니다
매크로창이 뜨면 붙여넣기한 매크로를 선택하고 확인을 누릅니다
사진이 자기셀로 셀크기에 맞게 찾아서 들어갑니다
또 이렇게 셀안에 들어간 경우
블럭을 선택하고 다른 열로 정렬을 하게되면 사진도 글자처럼 순서를 바꾸어 정렬이 됩니다