[Word] 그림 삽입 VBA

그림을 자동 삽입해주는 매크로입니다.

(글자 뒤로 설정해놓았습니다.)

Sub Stamp()
'
' stamp Macro
'
'
    With ActiveDocument.Shapes.AddPicture(Anchor:=Selection.Range, fileName:= _
        "I:\그림위치\1.JPG", LinkToFile:=False, SaveWithDocument:=True)
        .WrapFormat.Type = 3
        .ZOrder 5
    End With
End Sub