Insert a shape rather than a text box
Code:
Sub SetWindowUp()
Dim winMain As Window
Dim Box As Shape
Dim x As Double, y As Double
Dim sPath As String
sPath = Environ("USERPROFILE") & Chr(92) & "Pictures\"
For Each winMain In Windows
winMain.View.Zoom.Percentage = 100
Next winMain
Application.ActiveWindow.View.Type = WdViewType.wdPrintView
x = Selection.Information(wdHorizontalPositionRelativeToPage)
y = Selection.Information(wdVerticalPositionRelativeToPage)
Set Box = ActiveDocument.Shapes.AddPicture _
(FileName:=sPath & "\wheelchair access.png", _
LinkToFile:=False, _
SaveWithDocument:=True, _
Left:=x, Top:=y, Width:=50, Height:=50)
End Sub
The file path in your original effort does not contain an insertable graphic, however the attached is an insertable version of that image, which you should save in your Pictures folder for it to work with the code above.
Personally I would probably just insert an inline shape at the cursor
Code:
Sub InsertIcon()
Dim winMain As Window
Dim Box As InlineShape
Dim x As Double, y As Double
Dim sPath As String
sPath = Environ("USERPROFILE") & Chr(92) & "Pictures\"
Application.ActiveWindow.View.Type = WdViewType.wdPrintView
Set Box = Selection.Range.InlineShapes.AddPicture _
(FileName:=sPath & "\wheelchair access.png", _
LinkToFile:=False, _
SaveWithDocument:=True)
With Box
.Width = 50
.Height = 50
End With
End Sub