자동 입력 및 자동 출력 양식 만들던 중 qr코드를 삽입하여 출력하는것에서 막혔습니다! 고수님들 도와주세요

안녕하세요 자동 입력 및 자동 출력을 하는 양식을 만들고 있습니다 !!

 

sheet1은 양식이며

 

sheet2는  입력할 내용들입니다.

 

지금 텍스트로 들어가는 부분은 다 완성을 했는데...  sheet2에  j열에  qr코드가 사진으로 삽입되려고 합니다.

사진으로 들어가니... 텍스트로 인식을 안해 qr코드는 빼고 인쇄가 됩니다.

imagevlook도 써보고 ㅠㅠ 다해도 안돼더라구요...

 

sheet1에  d1칸에 들어가서 인쇄를 하고 싶은데  vba코드가 막막하여 질문드립니다!

 

Sub start()
Dim r As Long
Dim shtprnt As Worksheet
Dim shtdata As Worksheet

Dim rng(1 To 9) As Range

Set shtprnt = ThisWorkbook.Worksheets("sheet1")
Set shtdata = ThisWorkbook.Worksheets("sheet2")

Set rng(1) = shtprnt.Range("B2")
Set rng(2) = shtprnt.Range("D2")
Set rng(3) = shtprnt.Range("B3")
Set rng(4) = shtprnt.Range("B4")
Set rng(5) = shtprnt.Range("B5")
Set rng(6) = shtprnt.Range("B6")
Set rng(7) = shtprnt.Range("D6")
Set rng(8) = shtprnt.Range("B7")
Set rng(9) = shtprnt.Range("B8")

r = 0

Do While shtdata.Cells(2 + r, 1).Value <> ""

rng(1).Value = shtdata.Cells(2 + r, 1).Value
rng(2).Value = shtdata.Cells(2 + r, 1).Offset(0, 1).Value
rng(3).Value = shtdata.Cells(2 + r, 1).Offset(0, 2).Value
rng(4).Value = shtdata.Cells(2 + r, 1).Offset(0, 3).Value
rng(5).Value = shtdata.Cells(2 + r, 1).Offset(0, 4).Value
rng(6).Value = shtdata.Cells(2 + r, 1).Offset(0, 5).Value
rng(7).Value = shtdata.Cells(2 + r, 1).Offset(0, 6).Value
rng(8).Value = shtdata.Cells(2 + r, 1).Offset(0, 7).Value
rng(9).Value = shtdata.Cells(2 + r, 1).Offset(0, 8).Value

shtprnt.PrintOut

r = r + 1
Loop
End Sub

 

코드는 이런데 어떻게 추가를 해야할까요?