Guru do Excel e Power BI

Olá estou criando uma macro para transferência de gráficos do Excel para word em formato de Imagens. Porem não estou conseguindo colocar essas imagens dispostas "Atras do texto". Alguém pode me ajudar?

.
Dim Grafico As ChartObject
Dim SaveToDirectory As String
Dim myFileName As String

SaveToDirectory = Environ("TEMP") & "\"

Sheets("Relatório").Select
ActiveWindow.Zoom = 100
ActiveWindow.ScrollColumn = 1

For i = 1 To 1000
ActiveWindow.ScrollRow = i
Next i

ActiveWindow.ScrollRow = 1
ActiveWindow.ScrollColumn = 1

For i = 1 To 72

myFileName = "grafico" & i & ".jpg"

ActiveWindow.Zoom = 100


Set Gráfico = Sheets("Relatório").ChartObjects("Gráfico_" & i)
Gráfico.Chart.Export Filename:=SaveToDirectory & myFileName, Filtername:="jpg"


Set InsertGraph = wDoc.Bookmarks("Gráfico_" & i).Range
InsertGraph.Delete



With InsertGraph

.Select
.InlineShapes.AddPicture Filename:=SaveToDirectory & myFileName, Linktofile:=False, Savewithdocument:=True


End With
Next i

Voce poderia adicionar uma planilha de exemplo?