VBA에서 내 보낸 보고서에 이미지를 삽입하는 방법

Question

Excel VBA의 분석에서 생성 된 보고서의 일부로 이미지를 삽입하려고합니다. 보고서는 워드 문서 형식 (.doc)입니다.

보고서를 내보내는 기능은 다음과 같습니다. 유일한 것은 보고서에 이미지를 가져올 수 없다는 것입니다.

Function FnExportToWordDoc() 
Dim objWord 
Dim objDoc 
Dim pctCompl As Single 
Dim objSelection 

msg = msg & "STRESS DUE TO SUSTAINED LOAD TEST " & sustainedtest & vbNewLine 
msg = msg & " " & vbNewLine 
msg = msg & " The design for occassional load require that " & occtest & "<" & occright &  vbNewLine 
msg = msg & " " & vbNewLine 
msg = msg & " Allowable stress due to dead weight " & Sallsus & "psi" & vbNewLine 
msg = msg & " " & vbNewLine 
msg = msg & "STRESS DUE TO OCCASIONAL LOAD TEST " & occtestmsg & vbNewLine 
msg = msg & " " & vbNewLine 
msg = msg & "I want an image here" 

reportdrs = Mypath.reportpath 
reportname = Myname.reportname 
reportdr = reportdrs & "\" & reportname 

Set objWord = CreateObject("Word.Application") 

Set objDoc = objWord.Documents.Add 

objWord.Visible = True 

Set objSelection = objWord.Selection 

objSelection.TypeText (msg) 

objDoc.SaveAs (reportdr) 

msgre = "The report has been saved here " & reportdr & vbNewLine 

Title = "Report Generated" 
MsgBox msgre, vbOKOnly, Title 


End Function 

어떤 도움을 주시면 감사하겠습니다.

Answer 1

Sub Example1() 
    Selection.InlineShapes.AddPicture FileName:= _ 
    "D:\Stuff\Business\Temp\SP_A0155.jpg", LinkToFile:=False, _ 
    SaveWithDocument:=True 
End Sub 

단어에 그림을 삽입 빠른 구글 검색을했고 http://software-solutions-online.com/2014/05/13/word-vba-insert-images/