I am trying to write macros to add png files within text. Here is my current code:

Sub InsertImage()

Dim imagePath As String
imagePath = "C:\Uselesss\f15648a9e2f7185199568bec9.png"
ActiveDocument.Shapes.AddPicture FileName:=imagePath, _
LinkToFile:=False, _
SaveWithDocument:=True, _
Width:=14, _
Height:=14
End Sub

which adds the line on the same line as the cursor, but at the far left.
I have been trying to implement ConverttoInlineShape but I can't get it to work.

I am a very bad coder, so unless your answers show me the code that will fix it, or explain exactly what i have to add/remove/replace, I won't get much further.

Figured 6 hours on this was enough. Please Help!